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Liebe Leser! 
In dieser Homecomputer- 
Ausgabe beginnen wir mit ei- 
nem neuen Kurs in TURBO- 
PASCAL. Mit diesem neuen 
Kursangebot ist es uns hof- 
fentlich gelungen, den zahl- 
reich geäußerten Leserwün- 
schen Rechnung zu tragen, 
Wir wünschen allen „Lernhe- 
gierigen“ viel Spaß! 
Die Redaktion 





earanliert. 
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Ihe Atari-Corner - 1,4, Tips und Tricks für den 
Aları 520.57 
Impressum 
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"Einführun 


re en/und 
Programme in TURBO-PASCAL 


Endlich gibt es eine Pascal-Version, die auf (fast) jedem Computer [ 


lauffähig ist. Der Welterfolg von Turbo-Pascal hat tausenden von 
Computerfreunden die Chance eröffnet, leistungsstarke und profes- 


sionelle Programme zu entwickeln, ohne die Nachteile älterer 
Pascalcompiler in Kauf nehmen zu müssen. Noch nie hat in der 


Geschichte der EDV ein Compiler eine derartige Verbreitung und | 


Reaktion unter den Anwendern hervorgerufen. Wir haben uns des- 
halb entschlossen die Pascal-Freunde nicht im Stich zu lassen, son- 
dern mit Information, Tips und Programmen zu versorgen. Wernoch 
nicht so vertraut mit dem neuen Pascal-Dialekt ist, hat Gelegenheit 
in einem mehrteiligen Kurs sein Wissen zu erweitern. Autoren von 
Turbo-Pascal Programmen sind hiermit aufgerufen, uns mit Pro- 
srammen und Tips zu unterstützen (natürlich gegen Honorar). 





Rüdiger Pfister und Roland Schweizer, die Autoren unseres neuen 


Turbo-Pascal Kurses, haben ihr Konzept derart aufgebaut, daß vor | 


allem Anfänger und leicht Fortgeschrittene angesprochen werden. 


Außerdem soll eine Integration von allgemeinem Programmier- 
kurs und Einführung in ein spezielles Programmsystem (nämlich 
Turbo-Pascal) erreicht werden. Und nun viel Spaß mit Turbo- 


Pascal Teil 1,! 


Pascal wurde 1970 von N. Wirthin Zürich 
entwickelt, Die Programmıersprache hai 
sich sehr schnell als Ausbildungssprache 
(in Universität und Schule) wie auch als 
Sprache zur Bewältigung technisch-wis- 
senschaftlicher Probleme etabliert. 

Esgibl inzwischen verschiedene Dialekte 
von Pascal. Turbo-Pascal existiert seit 


1983 und die Wersion 3.0. von Turbo-Pas- | 


cal seit 1985. 

Welche Gründe sprechen eigentlich da- 

für, sich mit Pascal, speziell mit Turbo- 

Pascal, zu beschäftigen? 

Für Pascal wird oft als Argumente ange- 

führt: 

- es bietet die Möglichkeit, Strukturen 

von Problemen klar herauszuarbeiten 

und zu verdeutlichen 

- es erlaubt gut lesbare und verständli- 

che Programme 

as ist allgemein anwendbar (im Gegen- 

satz zu Programmiersprachen, die für 


spezielle Anwendungen entwickelt 
\ es für verschiedene Rechner; CP/M, MS- 


wurden] 


— — 
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- es erziehl zu einem guten Program- 
mierstil 


den Probleme angepaßt werden 

- es ist Nexibel und ellizient 

- es ist leicht erlernbar (dies gilt be- 
stimmt nicht im Vergleich zu BASIG, 
aber im Vergleich zuanderen Program- 
miersprächen) | 

- Man kann Programme aussehrkleinen 
und deshalb sehr übersichtlichen Tei- 
len (sogenannten Modulen) zusam- 
mernselzen 


Diese Punkte sollen zunächst so aufge- | 


zählt stehen bleiben. Was dieseimeinzel- 
nenbedeuten, wirdim Verlaufdes Kurses 
an konkreten Beispielen deutlich werden. 


Für Turbo-Pascalials Dialekt spricht, daB 


es relativ preiswert ist, sehreinfach zu be- 
dienen ist (obwohl es jaein Compiler ist) 
und im großen und ganzen dem Stan- 
dard-Pascal entspricht. Turbo-Pascal gibt 


die Datenstrukturkannandie zulösen- | 


DOS. PC-DOS, 

Bevor.die praktische Arbeitbeginnt. noch 
ein paar kurze Bemerkungen zudem, was 
wir jetzt ständig erstellen wollen: 





Um verstehen zu können, wozu das 
Schreiben von Progranımen sinnvoll ist, 
wollen wir zunächst einige allgemeine 
Überlegungen voranstellen, aus denen 


klar werden soll, welchen Zweck Pro- 
eramme erfüllen können. Ein fürden An- 
fang sehr. nützlicher Vergleich ist der mil 
einer Maschine oder einem Werkzeug: 
wie jede Maschine bearbeilei auch ein 
Programm ein bestimmtes Material: die- 
ses Material sind die Daten. Unter Daten 
kann man sich alle möglichen Symbole 
oder Zeichen vorstellen - Buchstaben, 


| Sätze, Zahlen usw. -, wir wollen uns zu- 


nächst der Einfachheit halber aul'die Be- 
arbeitung von Zahlen beschränken. 

Die Maschine selbst, eben das jeweilige 
Programm, ist aus bestimmten elementa- 
ren Bauteilen konstruiert: Anweisungen, 
Zuweisungen usw,, allgemein gesagt aus 
einer Menge von Befehlen. Je nachdem, 


|| weichen Zweck die Maschine (das Pro- 
gramm) erfüllen soll. Solch eine Folge 


von Befehlen wird auch Algorithmus ge- 
nannt, 

Bildlich kann man sich den Verarbei- 
tungsvorgang so vorstellen, daß das Roh- 
material, die Ausgangsdaten, oben in die 
Programmaschine hineingeschütlel (Ein- 
gube), darin bearbeitei (Verarbeitung) 
und schließlich unten die veränderten 
Daten ausgeworlfen werden (Ausgäbe), 
Diese grundsätzliche Reihenfolge wird 
auch EVA-Prinzip (Eingabe -> Verarbei- 
tung -—> Ausgabe) genannt. 

Den Vorgang der Konstruktion einer sol- 
chen Datenverarbeitunesmaschine auf 
einem Computer nennt man Program- 
mierung, die Mittel, die man dazu neben 
dem Computer selbst (der Hardware) be- 


| nötigt, sind die verschiedenen Program- 


miersprachen (Software) wie #,B. BA- 
SIC, PASCAL oder LOGO. 

Soweit einige allgemeine einführende 
Überlegungen. An einem einfachen Bei- 
spiel soll nun verdeutlicht werden, wie 
die Arbeitsweise eines Programms 'kon- 
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kret aussehen kann. 
Bevor es losgeht noch eine Frage: Habt 


Ihr von der Turbo-Pascal-Diskette eine 
Sicherungskopie erstellt? Wenn nicht, 


dann holt das bitie vorher noch nach. 


Manchmal passiert es doch, daß die Da- 


ten auf der Diskette beschädigt werden 
und wenn das bei der Originaldiskeite 


passiert ist der Ärger und die Lauferei | 


eroß. 

Bevor das erste Programm eingegeben 
werden kann, muß zuerst mal „Turbo- 
Pascal“ in den Rechner geladen werden. 


Ich gehe davon aus, daß der Rechnerein- 
geschaltet und das entsprechende Be- | 
triebssystem (MS- DOS, CPM etc.) gela- 


den ist. Legt die Kopie der Turbo-Pascal- 
Diskette ins Laufwerk (bei zwei Laufwer- 
kenins Laufwerk Alein, gebt Turbo“ ein 
mit abschließendem Drücken der <En- 
ter>-Taste. Nach kurzer Zeit müßte euer 
Schirm folgendermaßen aussehen: 


Schirm-Meldung I 
TURBO Pascal system Mr 30 vi A 


PC-DOS 
_ BORLAND. Inc. 





leer u 


Aufdie Meldung „Include error messages 
(YIN)* ein „Y* (ohne <Enler>Jeingeben. 
Das bedeutet, daß Fehlermeldungen 
nicht nur als Nummern angegeben wer- 
den, was für den Anfang ganz nützlich ist. 


Danach wird: Automatisch „Turbo, MSG® 


geladen. Dann erscheint das Hauptmenü. 


Euer Bildschirm müßte jetzt folgender- | 


ee 


Ben ea 


Work file: 
‚Main file: ; 
‚Edit Compile 
Dir Quit 


Text:  Obytes 
Free: 62024 bytes 
= 


ee || 
compiler Options 


Run 


LUmeucham Anfang nicht mit zuviel Text 
‚Zu ‚plagen, wollen wir aus diesem Menü 
nur soviel ern. wie es für die Arbeit 
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| Jetzt nötig ist. Der Rest kommt später bei 
konkreten Anwendungen. 


Logged drive: LW 


Hier wird dasaktive Laufwerk (LW)ange- 


zeigt, Aktiv heißt, daß auffdiesem LW ab- 
gespeichert bzw. von diesem LW eingele- 
sen wird. Durch Drücken von „L* (ohne 
<Enter>) kann das aktive Laufwerk geän- 
dert werden. Es erscheint die Zeile „New 
drive“. Ihr gebt die neue Laufwerksbe- 
zeichnung ein (A, B, C etc.). Hier noch 
ein wichtiger Hinweis für diejenigen mil 


CP/M-Rechnern. Wenn ihr im Laufwerk | 


die Disketie wechselt, müßt ihr. das extra 
anmelden, sonst bekommt Ihr später 


beim Versuch, ein Programm abzuspei- 
chern einen Fehler angezeigt und das 


Programm ist verloren, Beispiel: Ihr habt 
nurein Laufwerk und wollt, nachdem ihr 
Turbo Pascal eingeladen habt, die Disket- 
te wechseln, umein Programm zu schrei- 


ben und danach abzuspeichern. Diskette 


ım Laufwerk A wechseln; „L* drücken, 
denselben LW-Buchstaben eingeben, der 
vorher schon dort stand (also A) und es 


kann nichis mehr passieren, 


Active Directory 
Diese Meldung erscheint nur bei MS- 
DOS Rechnern 


"Work File: 
| Work Fileist die Datei, mit deraktuellge- 
\ arbeitet wird (die sich im Speicher des 


Rechners befindet). Durch Eingabe von 
„m kann die Arbeitsdatei zeändert wer- 


den, Es erscheint die Anzeige „Work file 


name“. Hier kann ein Name eingegeben 
werden dacht gültige Zeichen als Däteina- 


Programme schreibt man in der Regel 






















men}, ein Punkt und drei gültige Zeichen 
als Dateikennzeichnung. Wird der Punkt 
und die Dateikennzeichnung weggelas- 
sen, wird automatisch ”, PAS” angehängt. 


Main file: 
Dieser Punkt wird spater. am konkreten 
Beispiel erläutert. 


Edit: 

Durch Eingabe von „E* wird der Editor 
aufgerufen: Der Editor ist ein „Textpro- 
gramm“ mit dem der Programmiext ein- 
gegeben wird. Befindet sich noch keine 
Arbeitsdatei im Speicher, erscheint zu- 
nächst die Anzeige „Work file name” und 
Du mußt einen Dateinamen eingeben. 
(Der Editor hat übrigens große Ähnlich- 
keit mıt dem Editor von „Wordstar“.} Es 
wäre sehr sinnvoll, wenn ihr im Hand- 
buch von Turbo-Pascal das Kapitel über 
den Editor einmal durchlest. 


Auf „Compile*, „Bun“, „Save*, „Dir“, 
„Quit“ und „Compile Onlion: werden 
wir im konkreten Anwendungsfall zu- 
ruckkommen. 


Grau, teurer Freund, ist alle Theorie: wir 
wollen jetzt unser erstes PASCAL-Pro- 
gramm schreiben. Programme schreibt 
man im Editor, deshalb „E* drücken. Es 
erscheint die Zeile: Work hie name: - 
hiergibst duein „Zahl“{oderirgendeinen 
anderen Namen) ein, drückst „Return“ 
und du befindest dich im Editor. 
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ACE (Air Com- ACTION BIKER 


bat Emulator) 
Ein Programm, daß den 
„Spiele-Freak" voll in 
Anspruch nimmt 


Bei ACE handelt es sich um ein Flugsi- 
mulator-Spiel,. von denen mittlerweile 
zahlreiche Versionen aul dem Sollware- 
markt verbreitet sind. Doch dieses Pro- 
eramm unterscheidet sıch wohltuend von 
anderen Spielen seiner Art. Zum einen 
beinhaltet ACE eine sehr gute Gralik. 
zumanderen bietet es ein abwechslungs- 
reiches und realistisches Spielgeschehen, 
Als Player müssen Sie immer wieder die 
zahlreichen Anzeigen im Cockpit wie 
Spritvorrat, verschiedene Flugbedingun- 
eent{Machillue, Taetlugetc.)beobachten, 
die verschiedenste Fluemanöver durch- 
führen und dabei gleichzeitig einen über- 
lerenen Feind zu Luft und zu Land be- 
kämpften. 







Das Herstellerversprechen „Eine Aulga- 
be, die Sıe voll in Anspruch nehmen 


wird“ scheint hier wirklich zuzutreifen. | 
Inszesamt gesehen lür alle C-64-Fans sı- | 
cherlich eine zu emplehlende Anschal- | 


LUEIE, 

Hersteller: Cascade Games LID. 1-3 
Havwra Ürescent Harrogate, Wort 
Yorkshire HG 15 BB. ENGLAND 
(Preis ca. 10-15,- DM). 
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Das Programm „Action Biker“ der re- 
nommierten Soltwarefirma MASTER- 
TRONIC ist im Handel in der $chneider-, 
C-64- und in der Spectrum-Vesion erhält- 
lich. Vor allem die C-64-Version konnte 
dabei die erfahrenen Tester unserer Pro- 
erammierabieilung überzeugen. 


Die Aufeabe dieses Spiels besteht darın, 


Colin, den ungeschickten Helden, mög- 
lıchst schnell durch eine Stadt zu:manov- 
rieren, in der es, wie nicht anders zu er- 
warten, von zahlreichen Hindernissen 
nur so „wimmelt”, Eine Spielsituation, 


die sicherlich manchem „Joystickakroba- — 


ten” nicht ganz neu vorkommen wird. Al- 
lerdings bedarf'es doch einiger Geschick- 
lichkeit, den Hindernissen zu entgehen 
und zu einer optimalen Beschleunigung 
zu gelangen (beispielsweise Turbolader 
aufnehmen und geschicktes Schalten], 
umsoeine möglichst hohe Punktzahl zu 
erzielen. 

Sie sollten bei all Ihren Actionen immer 
mit Colins Ungeschicklichkeit rechnen 
und während der Beschleunigungsvor- 
singe auf die gefährlichen Ölspuren ach- 
ten. 

Fazit: Ein Programm, das zwar aul'einer 
relativ bekannten Spielidee beruht, dafür 
aber einen ansprechenden Sound und gu- 
te Grafik bietet. 

Hersteller: Mastertronie Kaiser-Otto- 
Wee 18, 4770 Soest (Preis Gesamtnote: 


(Preis: ca. 10,- DM) 






Gesaminote: 


| Das Programm „Desert Fox” beordert Sie | 


mitten an den Brennpunkt des Wüsten- 


krieges zu Zeiten General RKommels. Der | 
„verhindern Sie den | 


Auftrag lautel 


Durchbruch von Rommels Truppen und 


— gehrauch- 


Tolle Grafik 
liche Spielidee 


befreien Sie Nordalrika von der deut- 
schen Besatzung”. 

Um diesen Auftrag erfüllen zu können, 
müssen Sie den feindlichen Boden- und 
Luftangriffen gewachsen sein und die ei- 









En 


| 


| 


I 
I 


senen Machschublager sirategisch ge- | 


schickt anlegen und gegen jeden leindli- 
chen Uberenil verteidigen. 





Dieses Programm, das auf dem Commo- 
dore 64 und 128 lauffähig ist, lebt vor 


allem von seiner guten Grafik. Von der 
Spielidee betrachtet, dürfte dieser 


Beitrag. zumindest für erfahrene Compu- 
ter-Freaks kaum neue Erfahrungen brin- 
pen. 

Hersteller: US. Gold (Germany). An 
der Gümpesbrücke 22, 4044 Kaarst 2, 
Holrhutteen. 

(Preis ca. 30,- DM) 






(esaminote: 


TORNADO LOW 
LEVEL 


Dieses Programm weist das schnellste 
und reibunesloseste Scrolling auf, das 
bisher auf'dem Schneider erstellt wurde. 
Dieses Mal befördert euch euer Compu- 
ter in das Cockpit des Kampfllugzeuges 
Tornado. Dieser Jagdbomber der neue- 
sten Generation besitzt eine 360-Grad- 
steuerung und schwenkbare Flügel, stellt 
jedoch auch hohe Anforderungen an sei- 
ne Piloten. Zu Beginn des Spiels wird 
euch auf einer Landkarte die Position 
eurer Geener bzw. die zu zerslörenden 
Ziele angezeigt, Nach erfolgreichem 
Start wird euch erst allmählich bewußt, 
welchem Streß Tornado-Piloten tatsäch- 
lich ausgeseizt sind, Erst wenn folgende 
Aufgaben und Bedingungen erlüllt sind, 
könni Ihr zu eurem Stützpunkt zurück- 


Ea 
u: 
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Heinz” antreien. Die Steuerung kann ne- 
ben dem Joystick auch über die MSX- 
Cursortasien erfolgen. Die Figuren be- 
wegen sich Außerst realistisch, reagieren 


Boxkampf auf 
dem MSX 


KONAMI hat mit dem KONAMTS EO- 
XING ein Cartridge (Steck-Modul) auf 
den Markt gebracht, das zu den schönsten 
Sport-Spielen gehört. Bei diesem fairen 
Wettkampf können Sie-allein gegen den 
Computer (verschiedene Schwierigkeits- 
grade) oder aber gesen Freund .„Karl- 


au‘ 


Anspruchsvolles Sportspiel 





auch auf Niederschläge und linke Haken 
„wirklichkeilseelreu"! Neben der er- 


Zn Tr a en 


kehren: - Feindliche Ziele, die auf der 
Karte markiert sind, zerstören. - Wenn 
mörlich mit Überschalleeschwindiekeit 
in großer Höhe fliegen. - Um zielgenaues 
Bombardieren zu gewährleisten, die zu 
vernichtenden Objekte möglichst niedrig 
anlliegen. - Zum Auflanken eefühlvoll 
Landen, - Ständig Karten und Zustands- 
berichte zur Unterstützung einer effekti- 
ven Aufiragserlüllung überprüfen. 

Al diese Vorgänge laufen in einem sehr 
hohen Tempo ab und erfordern äußerst 
kurze Reaktionszeiten. Ein Programm, 
das jeden voll fordern wird. 

Hersteller: Vortex Software Ltd. 
Vortex House 24, Kansas Avenue, 
Off South Laneworthy Road, 

Salford M3 2 GL- ENGLAND - 
(Preis ca. 40,- DM) 


N 


A 


u 
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Gesamtnote: 


Mit diesen Charakteristika könnte man 
| die Vorzüge des Programms Hiehway En- 
| counter (Schneider) beschreiben. 


wieder einmal. einige Gebiete der Erde 


| VORTONS, alle samt ausgerüstet mil 
| „LASERTRON®.. dem supermodernen 
Wallensystem, erhalten den Auftrag die 
alienbesetzte Zone Irei zu kämpfen. Ein 
| Unteriangen, das sich als äußerst'schwie- 
| rig erweist, denn die Aliens besitzen wir- 
kunesvolle Mittel zur Verteidigung, Ge- 
| lingtes Ihnen trotz aller Widerstände, das 
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beselzt, Sie als Kommandeur der fünf! 


SOFTWARE 


| wähnt euten Graphik ist auch der ausge- 





_Drei-dimensionale Grafik - Schnelle Bewegungen - 
Abwechslungsreiches Spielgeschehen - Hoher 
Schwierigkeitsgrad 


N, 





A 


zeichnete Sound hervorzuheben. Gewer- 
tet wird nach Punkten. aberauch. der K.O. 
ist mörlich -— manchmal schneller, als 
man denkt! 

Hersteller: Konami, 6 Central Street, 
Manchester M2 585, ENGLAND 
Preis: noch nicht bekannt 


NY 


6 


A 
RUN 
2% 





| Zum Spielgeschehen: Die Aliens haben | 


RR 
N 


y 


Wallensystem „Laseriron“ zur umkämpf- 
ien- Zone. zu bringen, ist Ihnen: der Sieg 
nicht mehr zu nehmen, 

Fazit: Eine lohnenswerte Anschaffung 


| für alle „Freaks“, die abwechselungsrei- 


Te nF ee 


che Action-Games bevorzugen. 


Vertrieb: 

T.$. Datensvsteme, Dennisstr, 45, 
8500 Nürnberg 80, Tel. (0911) 288286, 
Preis: 49.50 DM 
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Die ML ATARI-CORNER 


Das Slargamıe 


ft E f 

| _ u 
| un ei Bi | Äh ua u 

Mi \ | % u u I } | 

ca Y me LBLF I% | BE a „un. EM. 


# # 





Als erfahrener Forscher, dessen Name in internationalen Fachkreisen bereits einen guten Klang be- 
sitzt, erhalten Sie den Auftrag Ihrer Regierung, eine erst vor kurzem entdeckte riesige Höhle zu erkun- 
den. Dieser Auftrag, den Sie anfangs als große Auszeichnung betrachten, stellt sich bald als äußerst 
gefährliches Unternehmen heraus. 













Es existiert nur eine Möglichkeit um wie- 
der an das Tageslicht zu gelangen: Im 
Höhlenwirrwarr trifft unser Höhlenlor- 
jscher häufig auf mysteriöse Gegenstän- 
de, dıe er naturlich zu untersuchen hat. 











Hinweise zur Erstellung 
von „MISSION“ 


Benutzen Sie eine leere forma- 


5 aa" ae Ca a 


en 


zZ -2 
tierte Diskette Tippen Sie Teil 3 
ein und speichern Sie diesen un- 
ter dem Namen DATAMAKE.I! 
‚ab. Daran anschließend tippen ji 
Für jeden idenlifizierten Gesarisieni ‚Sie bitte Teil d ein und speichern" 
edit e ertei genstärnc 
(Forscher hinter das Objekt plazieren und diesen unter D; TA: MAKE.2 ab.| 
Joystick kurz nach unten ziehen) erhält WDann laden Sie DATAMAKE.] 
| ‚man Punktegutschriften. Nachdem 5000 A und starten diesen Teilmit RUN. h | 
1 Funkte erreicht sind, öffnet sich für Sie Boy fehlerfreier Eingabe der bei-" 
wieder der Weg zur Eroberlläche. Allesı_ "7 teile wird jetzt 
Weitere können Sie aus dem Spielverlauf den Programmteite wird jetzt) 


selbst entnehmen. Ban das ‚FILE ni DAL erstellt. 















In dem gewaltigen Höhlenlabyrinth muß| 
sıch irgendwo der Zugang zu einer Gruft 
befinden. Sollte es Ihnen tatsächlich ge- 



















Di "m. 
| 3 I | ‚| 
| E | Ei; | - | 

4 ee 

PARKEN" Sam SERIE ET a a 
' Mission ist nur auf Diskette lauffähig, Die entspre- N | 
" ii fi “chende Kassettenversion kann direkt über unseren Mn | 

. I Softwarekatalog (S. 76/77) bestellt werden. +4 


Ist dies erfolgt, so geben Sie bitte 
Teıl ] ein und speichern diesen 
mit MISSION. BAS ab. Nun ist 
nur Teil 2 einzugeben und mit,, 
MISS 2.BAS abzuspeichern. 








Bingen diesen Zugang. trotz böswilliger fi 1° % I" Zum Spielen dann nur Teil IR 
Gestalten, sich bewegenden Wänden, ı TERN. | a N laden und starten. M 
L her rolle den Sleinen und we Ilerer di-! 2 # A r # s | ä Läuft das Programm einwand- 


ser Gefahren, zu erreichen, so heißt sie 
dann, den dort beiindlichen Sarg zu Glf-| 






’rei können DATAMAKE. ] und® 
DATAMAKE.2 gelöscht werden. 
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Fer 


Mission - Das Listing: Teil Eins | 








Gb} 10 REH # HH 
ifG} 20 REM HH die Mission 22 

<£PH> ZB REM ## c>1985 Han 

<cH} 48 REH ### written by Hi 

{HP} SO REH ## Carsten Reitz 

<GI> 50 REN ai 

<0.l> 78 7 "RBITTE HARTEKH":FOR I=-® TO 508 
IMEXHT I:POKE 557,8 

{KL 88 FOR 1644256 TO 69#256#+508:POKE I 
‚2Z55:NEHKT I 

‘äP} 908 OPEN H1,4,8,'"D:MI553.DAT" 

<JL> 108 FOR I=256 TO 4586:GET Bi1,A:POKE 

ZL,a:HEHT I 

<PG+ 110 FöR I=12398 TO i390:GET Bi1,ä:Pök 
E I,A:iHEHT I 

<an> 128 FOR I=1ISIs TO 1791:GET H1,A:FOk 
E LI,A:HEHT I 

<GO> 130 For I=20992 TO 3550T:GET Hi1,A:P 
üKkE I,AIMEHKT I 

<FF} id CLOSE Bi 

<FP> 158 POKE 129,69: RUN '"D:MISI2,.BA5' 


Teil Zwei 





{HG} 100 IF PEEK (4688) {} 142 THEN A=USRET 

5328) 

£aP} 118 FOR I=1386 TO iT98:READb A:POKE 

T,üä:MEHT I:bATd 169,226,141,34,2,169,192 
‚141,35,2,96 

DE? 120 A=ZUSRC4EATI ITA=SUIARCGASEI: FOR ISO 
TO 3:50UMb 1,8,8,8:HEKT I:7 "R":POKE 20 

6,81 ä=U5R (32917) 

<Ec} 150 POSITION 8,08:7 "BIER ı POSITION 
8,0:? "TilW'ıLrfs2:PposIıTIon I,1:? "GoED 

Lug: TIM=3999 

<FF} 148 POSITIOH 27,8:7 '% 
£FH} i58 LH=SPEEKCZU1I LE: LY=PEER (2821 #25 

BGiLYISLY+ZSGE:LOLSPEEK {LK HLYI :LOZSPEER CLK 

+LY71)3 

{ML} 168 IF <LOö2=91 OR LO2=65) AMb STICK 
c8)=15 THEN POKE i5359,49:POKE 1537,1:IF 

LOZ=3i1 THEN POKE 1375,96 

{Dbo> 170 IF PEEKiSZI279I=6 THEN RUN 

<0üK) Le IF STRIGLCBI=8 THEH GOSUB Ta 
Gb} 190 IF Löilf>o THEN 270 

<üöL} 280 POSITION 6,0:7 LF:TIHM=ZSTIH-1:P05 

TION 12,0:? TIM;" ":PoSITION 30,08:7 POI 
er] [77 

j 

{MN} 218 IF LFfi OR TIM{1 THEN dio 

Gb} 228 GOTO 150 

<op> 2I8 IF LO1i=>655 0A Loi=2701 OR LO1=199 
THEN 208 

<IE} 248 IF LoOisi18?7 OR LOi=188 OR LOi=18 

0A LO1i=262 OR Lüöil=253 OR Lo1=221 OR LOi 

=222 OR Löi=227 0R Loi=224 THEN 35% 

DE} 258 IF STICKc83 <>i1F3 OR PEEKEiSZZIFI 

THEN 2980 

{ME} 280 IF Loi=91 THEN POKE 1T375,98:190U 

NDb 7,20,8,15 

‘DG} >70 IF Lüi=89 THEN POKE 1375,112:50 

UMNG I,308,12,19 

Pc} 280 IF LOöL=69 THEN POKE i14I8,65:P0 
KE 11439 ,66:POI=SPOI+588:G0SU8 T4o 

{FD} 298 IF LOil=67 OR LOl=28T OR Loi=77 
oOR LOöi=s8i THEN POI=SPOI+100:G05SUB T4o 
<BE} 300 IF LOAi=7®> THEN POI=POIF1008:605 
uUB Z48 

<JM) Z1e IF LOi=251 AND POI>BO0E AND PEE 
Ki206)>0 THEN 450 

<oc} 128 IF Löi=sZii THEN FöR I=6 TO 255 
STEP 5:ıS50UN0b 7,I,18,18:WNEKT I:POKE 206,1 
{GB} IZIB GOTO 280 

“JMb Zad PFOKE LH#LY,0:POKE LHtLY+1,8:F0öR 
I=208 TO 100 STEP -5:50UNb 3,I,18,15:ME 
KT I:RETURM 

<bB} 1508 IF FPEEKI62TI=4 THEH IF POI}493 
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THEN POI=SPOI-5088 

<Müä> Z608 FOR I=20 TO 188 STEP 5:500ND i; 
7,12,18:NEHT I:IF POI<188 THEH LF=LF-1 
<JL> 3708 LF=LF-1:POKE 627,4: A=uUSRC1IB5I : 
För I=si1i28 TO 8 STEP -i:ıPöKkE 57248,I:PükE 
53249, ItMEKT I:A=USRc64569 

Ha) I0a SOuUNb T,8,0,8:60T0 Z00 

<bJj> Z96 FOR I=2008 TO 8 STEP -28:50UND 1 
‚I,180,10:8E#T I:If PEEKC62FEI=4 THEN POKE 
623, 1:!RETURM 

{NI> 488 POKE 627,4:RETURN 

<PM} 419 POSITION 2,1:?7 "TIME LOSE " 
CH} 420 POKE 536,6:50UNb 3,0,0,08ıFöR I 
a TO 988:MEKT I:POKE 538,08:F0üOR I=8 TO 2: 
SOUND I,8,8,8:NEHT I:POSITION 2,1:i?7 "PRE 
;; Bd 

<BHM} 438 If PEEKtSI27I 6 THEN 458 

<IM> 440 Rün 


“aß? 458 POSITION Z2,1:7 "you BEID IT ":G- 


0T0O 428 





{MB}? 9 POKE 764,255 
GB) 10 REM EN 






aM} 
<äk} i2 7 “rfdFreie Diskette hervorkranen 
"ı7 "4dann eine Taste druecken" 

<HG> 1 IF PEEKC7’EAI=Z2ZEE THEN iT 

<BA> 15 OPEN #1,8,8,"D:HMI55I.DAT" 

JH? 16 BIM AFC20) ,8B5cC29 1 SCHECK=SH: ZE=-108 
t) 

<FO> 17 RESTORE ZE:READb AF,5T:ı1920:5CHECK 
=Z5CHECK+ST 

<KA> 18 FOR I=i1 TO 19 STEP 2:B$=AFcCI,Itt 
I1:G0S5U8 BO:PUT HBL,A:S=S+A:NEHT I:r "ZEIL 
E "ıZE 

FI 19 IF 5%>5T THEN ? "DATEN-FEHLER IM 
ZFILE "rZE 

01> 26 ZEZSZE+1:TRAP I8:G0T0 17 

<PJ> ZIG CLOSE BiLiIF SCHECK) 746668 THEN 

40 

‘BC? 35 POKE 764,255:? :? "Diskette Mit 

dem File DATAHAäKkE.2 einlegen, dann 

eine Taste druecken' 

IA} 36 IF PEEKEFEAI=ZZSS THEN I6 

<LJ> I7 RUN "D:DATÄHMAKE. 2" 

<KE> 48 7 "Scheckfsumken-error":5Top 

{ID} 08 ALZSASCLBSCL,LII-AB: IF AL}F THEN 

alzsAal-7 

«IL? 82 AZ=SASCccBSc2,2393-48ıIF A229 THEM 

az=42-7 

iKF> 84 A=SALF#16+AZIRETURN 

IE? 1008 DATA CEBAiFCECBLFCEbLCIF?7E, 1404 
10? 1801 DATA 28287508217500277588, 450 
‘KL> 18082 DATA 23750024 750825750026 ,497 
{LH} 1097 DATA 750027750028375002975, 588 
<JN> 1004 DATA 8824550028418001L0808, 2T6 
‘<LP> 1005 DATA BO20008088FB08AI00854D, 476 
<ad> 108096 DATA Ab780280T60L1A0I6E0129, 7ER 
<00> 1007 DATA BiDOBEsZoALLBaAC79IoLAD, 807 
“HP 1808 DATA I6012982000628A1184C, 605 
‘HE? 180% DATA 9801A0IT6B17904000670,664 
<PP} 1810 DATA ABiB4c9FolLAbTEAL 2988, 785 
‘BB> 1811 DATA DROEZEAFLBACAERL4ICEZT, 870 
‘<BH> 1812 DATA E446CB86202C057UECHE ‚868 
<OL> 1813 DATA 204E85AD0106009874C6 2,6898 
‘AP? 1814 DATA EdACcsF86d4cho50620ID0u5,B8ld 
‘PM? 10615 DATA 28F1068204E054C62E44C, 872 
‘HE> 1816 DATA B70620088520E206204E ‚600 
‘üL> 1817 DATA BS4CcBFE4iclC186201885, 74T 
PE? 10818 DATA ZBEF7E6ZBO4ERSADBL186D8, 772 
“BL? 1819 DATA BIACHZEAICSEOSAFOOSE , 891 
‘<äI> 1820 DATA 1FDBBSALEAFLZADLIBLEI, 971 
<DE> 1821 DATA BL3ED1265ADbLABLEDLIOS,5Io 
“HK? 1822 DATA 26802580 740168184217, 728 
sAäH> 10827 DATA AbiIO16I97806 1205ADb1A, 669 
‘DK 1024 DATA BLBD1IOSACLLABAZTI2ZAD, 617 
‘of? 1825 DATA 16018D1205AD17O18D1IT, 544 
‘<Pr} 1026 DATA BS54C1105AZ12ADLCEIaD , 626 


{PB} 
<öM>} 
{öH> 
<LH> 
HF? 
PC} 
<00> 
“PI} 
ans 
<P.J> 
‘BL? 
<00> 
<AM> 
<aL) 
<PE} 
<BK} 
“BL? 
‘PL? 
Br} 
EN} 
PK} 
GB} 
‘<EG} 
<PI> 
sEJF 
“BA> 
EA) 
DM} 
<BP} 
‘<EH> 
<cD> 
<0M} 
EI} 
“EM 
<cK> 
<PA} 
<LF>} 
<ME> 
“0G>} 
AL} 
‘005 
Hi 
üE>} 
ca} 
PN} 
“NB} 
{BC} 
HJ} 
ak) 
<OH} 
<HP> 
<öL>} 
“BB 
<FD> 
<bE> 
{cc} 
HH} 
<HE>} 
“CH 
IC} 
<IM} 
‘CH? 
{LE} 
<H.J} 
‘Eb} 
cc} 
HN} 
IM} 
<Hö} 
Jr} 
{HF} 
<HE> 
IH} 
<IB> 
{IE>} 
<LIP> 
«HOF 
IH} 
<KJ> 
{FP> 


1027 
1028 
182% 
1838 
1051 
1832 
10373 
108354 
1835 
10936 
10837 
18358 
1939 
1048 
1841 
10642 
1043 
1844 
1845 
1846 
1847 
1048 
1849 
1858 
1051 
1952 


1853 


1054 
1055 
1856 
1857 
1850 
1869 
10698 
1061 
1862 
1063 
1064 
1865 
1066 
1067 
1865 
1069 
1078 
1071 
1872 
18773 
1074 
18785 
1076 
1077 
1078 
1879 
1888 
1081 
10082 
1083 
1084 
1885 
1886 
10887 
1888 
185° 
1890 
1091 
1892 
1893 
1094 
1895 
16°6 
18697 
10898 


1699 


1188 
1191 
1102 
1107 
1194 
1185 
1106 
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i205A01C 018. 1I954C11 ,404 
0B5A0I481482900008768, 791 
A981860106608682378F8 „911 
034C57056000088806842,5J33I 
FDIAAIB7TAIOODA4LACIGE , 1344 
BLEEFBBLABTBBLEIHB90,063 
11iA90880 T8B1LBEDBLAGCE, 738 
ZS101CE3101205C064C7D,685 
86CcEI30B81ADTOBLL805AF, 865 
OB88081864C708G6GEE3Z01, 6dd 
ABTZBLIC9ILOGBBEA?BBSL, 373 
B1B68DI2Z91EETFI01209C,677 
864C7D86CET281AbI201,694 
B88374C20064£ 70064907 „721 
SDISBLEETIBIEEZ1B17B, 738 
8CB64C7bB6A9oFäb320L, 729 
CEII01209C0064C70086Ab ,832 
308120040440 128160905,776 
D44CcBAl18A208BADTLELFD, 9#+2 
BABLEBEBEBEO24IBOFE60, 14553 
A200185A6330816908900D ,684 
BlLEEAIGGEBEBEBEBZ438,1586 
EbAäF8880 AT06E6DADT 181, 195 
cC900F0214CA281AbI181,93I6 
CIEBFBIF7ACBLOLABIISOL, 1175 
C9ZB8FB8D4Cc?7’CcolAbISelL, 312 
CITIAFBBIACIHTDLICHZEA, 1128 
AsSoTsscFI86A9Z21AcF306 ,1024 
AISCACFIOBSAFI10DBIBG, 778 
GEAAHBgBALBAUBRBBeBn, 96 
BELI12ZEBBELFIZBC1IALZ, 792 
BC281286171218698186 ,643 
1612495186022C4684952,19815 
8bDI2C6B3696BA945AZD04 ,1I1Z 
4829208012498 IAZAaEAB, 1047 
2C200012A94IA25AABTA,BeB 
2000812425CAB2720800912,521 
A2LCAHOTB2BBEL7A2ZTZAD, 878 
3878881 2AZECABTBZ20BB8 , 7565 
I2AZIGABIFZBBBLZAICB, 879 
a224A8I0200012A2ABAR, 951 
25208012A2DAA83620808, 713 
12494042544034200812,772 
AZE2ABIEZBBOLZAZICAD, 1866 
Z2F208812A94FA2944028,855 
Z80812A2IAABIE280812,638 
AZ2ABABT1L209881242A24B8,1865 
2920086i2A42bEA0282008,707 
12A2F048252900812A2C2,1023 
A8382000812A951A264AB8,938 
SsF2808812A286A03A2008,657 
124262A82C200012602C, 784 
3156392C3II2C37I6A5CF ‚7808 
BOBFADDCE1LISDEBERZ28082,1123 
BD2E4CE2ZCBITZTITZCI 7 362C, 1087 
ZS2I41I2CIG2ZCADEL2ACH, 936 
BEDOBSAFanäabEiZ2AAbEA, 1374 
ZzAabB805A9BBEDEBZACEB1,1225 
IISCEBALFCEODIAFSCEL4IT , FI? 
ADFSI8C9060805499880 ,141# 
FSIBSADFSIBC9IDED885A9,1508 
DASsbF5IBAbFZIJ386885A49 , 1296 
PDABFIITBADBFAISC9IDEDO, 1764 
BSEAFDESBFASBSCEZI1ICE, 13083 
ZCELISCEZFLISCEISLSCEIB ‚881 
ASCE4ZIICEASLICE4EI1S, 387 
AG7’IZFCIBDDBAES5AFGOBSb ‚1254 
792FAb7A2Fb805A493BLb80, 1222 
FAZFEEGILIEEFTZIIEE?S,12567 
13EEFC1IADBEZACIDFDO , 1429 
05A98B88DBEZAADBRGZACI, 1137 
EBb005AFB0ab BB AAbBB,1T28 
ZzAabBBs5sAFEadhdeakhebhr7, 1571 
ZAacC9E8DBB5A9bFBEcB7ZA,14T8 
EESBIIEEIALIEEITIIEE, 1447 
ABLIEEASLI3SEEAALTSEERAD, 1437 
1IEEBEITASEFFOBSCECF , 1488 
4CDB12A9IF6809020A9I88,1247 
BP 9ICZBEEBLIIEEE11TAG, 1474 
DE1LICIAFFOBIACE4124C, 1248 


E 


1187 


1188 
1189 
4116 
iii 
4112 
1113 
1114 
1115 

i1i16 

1117 

1118 

1119 
i120 
1121 
4122 
1123 
1124 
1125 
1126 
1127 
1128 
112% 
1130 
1131 
1132 

1133 

11354 

1135 

11I6 

1137 
1138 

113% 
1148 
1141 
1142 
1143 
jidda 

1145 
1146 
1147 
4148 
1149 

1158 

1151 

1152 

1153 

1154 

1155 

1156 

1157 
1158 

1159 
11680 
1161 
1162 
1163 
1164 
1165 
1166 
4167 
1168 
1169 
i1L76 
41lri 
il?7z 
1173 
ira 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1194 
1185 
1186 


DATA 
DATA 
DATA 
BAT 
baTteı 
DATA 
DATA 
bATe 
bATA 
DATA 
DATA 
bAaTa 
DATa 
DATÜ 
DAT 
bAaTa 
DATA 
DATA 
DAT“ 
bATA 
BAaTä 
DATA 
BATa 
bAaTa 
DATA 
DATA 
DATA 
BATa 
DATA 
DATA 
DAaTa 
DATa 
DATA 
DATA 
DATA 
DATA 
DATA 
bATüa 
DATA 
bAaTäa 
bATa 
DATA 
DATä 
baTüä 
bAaTa 
BATA 
bATA 
DATä 
BATA 
DATA 
DATA 
bAaTüa 
bATa 
BATA 
bAaTa 
BDAaTa 
bATA 
DATA 
bATä 
bAaTa 
DATA 
DATA 
BATA 
DATA 
DATA 
BATA 
DATA 
bAaTa 
bATü 
DATA 
DATA 
DATA 
DATA 
BATA 
BATä 
BATA 
BATäA 
DATA 
DATA 
DATA 


E41837I22CI136TI92C032,655 
12340000000000000008, 192 u 
FOFSSTTFFFFFEFDSFFSF , 1624 PR] 
DFFSFFFFF?FSTFDFDFFFF, 2192 E 
SFOSFDFOSFTFFFEDFO?D, 1922 
SIFEFSFFFFFFFSFEFSFOFD , 1664 
FSFSFDFOFSSSTFFFFOFD , 2201 = a 
FFFEFDFSFSFODAFFFFFFF „2046 
TFSFOSFOFSFOFD?7SSTOF ‚1866 
S7O55FSF5775F5F70550, 1271 | 
FO7TFIFLFIFAFIDFSSFD7, 1152 a 
FSFODFOFDDSSFFFOTSFFF, 1996 | 
FESFSFEFDTFFODFCFCFAF 4,1942 
FCSFERBABBRAHRBBRHAHH0, 219 
BOTCCEBEFGESTCEOBBTE, 1208 
750818187E000087C860C, 780 
18I0FE0000FCH6IEIE06 , Tid 
FCOBABRICESECECFEFERECHB , 1144 
BOFECBFCTFTEOSFERGHHRFTE, 1210 
COFCFECETCOBOBIFCHELC ,1T14 
3850700000 7CC8 7E7CCE, 920 
FCOBBBTCcCEFETEBEFCOB, 1084 
BBFLELCEDEFGEETFTCBEHTFAF , 11 74 
AFIFIFOTOFTFFAFCTFEF, 992 
SFFDDADOBOROHHRAHRRG , 768 
[1]: 1: 171: 1:1: 1:1: 11:7: 9e Pe 1: 1:7: 7:7: 15 900 :) 

SI: 7: 1:1: 0:1: 1:7:7: 1:7: 9: Pepe: 1o9o92 Bo) 
800008000809 7C FECECE, Fra 
FEFECSCEFCFECZFEFCCZ, ZI02 .F 
FEFCFCFECBCOLECHFETE , 2042 | 
FCFECEC6CECBFEFCFEFE , 2312 
COF&aFScarEFEFEFECOFB, 2356 
FECBCOCHTLFECSCHLtElE, 1996 
FETECGESCHFEFECECECE , 7074 
FEIC1LBLBLBLSETCTEHEUHE, 488 
OEOBOBEBFEICCECECHBFO, 1164 
FODSCCCECELOCHLECHCH, ZU10 
FCFCECGEEFEDSCELCELECE , 2200 
C6EGFGFEDECECECETECFE, 2130 
CH6C6CECHFETCEFCFECHFE, 2128 
FCCOCBLCOTCFECECECEäDE, 2022 
FCEFEFLCFECSFEFCDECCEGE, 7198 
TCFECOFETFEBSFETCFEFE, 1840 
ZIBIBIBIBITBIACHLCELETE,, 1128 
CHC6FETECEEELELCELEEE , 1962 
SCIOECECGCECHEHFEEECG , 1860 
CICIEGICICEELCTICTCEEE , 15088 
CH6CIEIB7OEHFEFEBCA1B, 1170 | 
ZSO60OFEFEL?7IDL7ODL?79IB, 1042 
170BDBE4DGEADBEADEEA, 17980 
DO00EKGBICH7O7ICABAL , 562 
9ICGECTEOBI0000000000,258 hr 
000000000000060080008,0 a 
80065099209090201027099,43 N 
408068600660890808015,885 Feel 
GSOLOS1EL6050054E040, 288 | 
50949450242524020214,507 
1ABZABSSEALEOEAELERBe, 1092 ı 
FAZOTAIOTATZOFTATOADOE , 865 
SbächbecAäbBcotelIdTe, 675 
FAaIorTaIooTeIscocäbetl , 355 

db8C557F 242624292400, 602 
SSFDABEBESBBAGABEBBL, 1491 
820872020080200408020, 308 
00082000200800080024,522 
2aZA00B2082000ARABAd, 598 
Baarzhhrhrbhazaehedhd, 769 
HBEAEAGEASEBAHDBELCEEL4, 12TE 
1414146706000020235338,305 
757500000880855F5F555, 1022 
BaAGaB2855F5SF5550008, 708 
000255FSF5355008882AA, 970 
SSFSF5S455L40000BZ2AA, 1064 
FFEEELPETEFITGECCGGEPEBE-r H 
SSL48B008CIFFFFFF5514,1170 a) 
BusfFFerrFFfFo30E0FC1, 1708 za: 
1508104ICC0For0405445, 973 | 
10FS0I0FIDI5FSIbHFoT, 7i2 
COFOTCESFSCETCFECHRE206, 1307 | 4 
BEIHTZTEC2820C1A2276, 730 ie 


—— 


Junifduli ‘86 


GA) 1187 CCOBE2FCOCLEIZEOCHCA, 1232 BO} 


BAT-ü 1262 bAaTä ZF2820p2FZ2FICcI5I52F15, 492 | 
| {CF> 1188 DATA 7CIB040ELATZEICICETE , 888 {NK} 1267 DATA I5IS5ISTIEICTICAE404840, 596 | 
cc} 1189 DATA BOBLETOGBFECSCHTEHBLE, 368 “An+ 1264 DATA ICICISITSIEI54B40ICTE „588 
<CI> i198 DaTdı TOosarccocdcadlEl1aTüsn, 12 “AaH> 1265 DATA TCICICTSTC4B4B48484B, 645 
<FI> 1191 DATA CCh2c2FE222244447044, 12508 «PH> 1266 DATA J0OduoTcTsIszsscIsarzr,554 
1 <PE> i192 DATA 883881E0C181BITHTHGBF, 794 BB} i276?7 DaTha 2F2FIS5515151ICICI CIE , ET 
- <PD> 1193 DATA 06086860C8C0CD87827772, 458 OF? 12768 DATA ICI5484848348484040IFC , 653 ih 
<MG> 1194 DATA 24287848C48208 191020, 698 | “AP? 1269 DATA ISISIEICISZFZFZFZFIS, 51T 
' cf} 1195 DATA GO4OCcHFE22I856444204,1052 | <BK} 12708 DATA 20282F2F2F282T2F2rFIC, 450 
| <PF> 1196 DATA 848422I2574A4C948484, 976 | <PO> 13271 DATA ISISZFISISISZFZFIS5IC,519 
<PG> 1197 DATA 3C424242848484787064, 994 Ä {PD} 1272 DATA ZC4BIFSITI32ZFIGEI53IICIIJ, 537 
s<EF> 1198 DATA 6262500060801C424242, 1058 DB} 127I bAaTd ZF2F2F28202F2FICTIE40,497 
B ı ‘bB} 1199 DATA B4BAI36CcIcZ242447090 , 1064 {MM} 1274 DATA dESLS1L514040 IC ICc4B4B, 707 
| <ME> 1200 DATA 88384TIE4040T8040408FR, 770 “Mb 1275 DATA 48ICI5I5354840753575,5786 
} <MB> 12081 DATA I87E18I8I07060604 742, id <LM> 1776 DATA 4040409ICICcA0A40404048 , 672 
<PD} 12082 DATA 42428484847842428284,1942 BG} 1277 DATA ICIEC4B4BICcIFZFZFZFZ8 ,542 
‘art 12035 DATA 04484830424202824404,1092 <cf} 1278 DATA ZDZF2FZFISISZF2ZFI5I5,492 
<PJ> 12984 DATA 836C89422224448I0C6C 8484 , 796 {MC} 1279 DATA 354084040IC.IC40404040 , 621 
% “LC> 1285 DATA 227244442810820207E04 ,454 ‘Bd? 12808 DATA JEICICABIE IC FF F2FZF ,566 
| <EK} 1206 DAaTdk BBiöl1äzadarfcerfrf50505, Ti <äM> 1281 DATA Z282H2F2F2F88TcIc4a4a,d7A 
En HG} 1207 DATA DSDSDSDSFFSFS7S75757, 15508 <00> 1282 DATA 88IcIc4040483TcIcI5 Tg, 5dab 
a N KLEE) 1208 DAaTd S7STOREEHDHEFEABAAnR, 428 “PI> 1283 DATA 888806 TICICICICICTFSTC, 41T 
<PI> 1209 DATA DH00808BF8808008888FFFL,5679 <0üB> 1284 DATA d0d4B4BaiBdgdgdBdudiaTtl, 684 
Br ‘<öF> 1210 DATA FEFFObFFEFBEDFADHE 1980 , 1904 “AWN> 1285 BAaTa I5I5I5ICI52F2F2F2F35, 513 
Frn ‘EE+ 1211 BATA B00b280982028004L. 2EE81, 1157 <1I? 1286 DATA 282828000000000800008, 120 
| sAk> 1217 DATA L1B8AbOLi18EcCHMEDBB5AIOD, 819 <HK> 1287 DATA 000088000AD81060065 ACC, 568 
| <FH> 1Z1I DATA 808118492I80 28874055, 714 ‘CH? 1208 DATA 9Bi1BA299BL8B81E?D781C,8608 
| OK} 1214 DATA 1862082866188b6800 247,857 <FF+ 1259 DATA BbBBlFIDFOlbEBESALOFH, 11T4 
| MB} i2Z15 DATA O120661880020 2420220, 708 <HH> 1290 DAaTa EfFEEifidßäsooc9olrfanad,1ißi 
| <G6b> 1216 DATA GELBBDHabZEESTILBEES?T, 1107 {CE} 1291 DATA BABABABASCHBIDSDLL1B, 484 
| <FL> 1217 DATA 18EE6718466 718C9I868, 1154 <cE} 1292 DATA ACB51BAFBBSp1LF1B4C28,592 
| BG} 1218 DAaThA 9BSA90EBB671BAIOD8D 28, 806 <00> 1297 DATA 1BA2BRBDSBLEIDFRLCBD, 974 
| FF <FE> i219 DATA BZa9AdEpalb2308I6 280, 1182 <FP? 1294 DATA SOLFICFTOoLDEBEBLBFDdErF ‚1264 
. ‘BF 1220 DATA B50ZAF1B88H 1ABZGOBDID, 88T ‘<bP}> 1295 DAaTäk EESOlDBAIFOSCIBBFRdDaA, 989 
1771 BaTä 196846 CD LIABDUSBFEESB , 1277 <DP> 1296 DATA BABABASDICIBEHAZIBAC ,56 8 


«IA> 


Nicht aufgeben: Dieses Atari-Programm entschädigt Sie für 





Ihre „aufopferungsvollen“ Eintipp-Bemühungen! 


| {FF} 


1222 


18Ab6BLECcIFE085A9h, 1157 


Ba} 


1297 BbaTa 85184903856056184C653518,6408 
| GE 1227 DAaTä 86b6BLEAFESADE7l2ZA9I08 „1706 GC} 1298 DATA A208B0GBLEIG7OLCEO6G, 1059 
{BL> 1224 DATA 80180268AD1CO2F88AC9, 917 {IF> 1299 DATA 1F9D7BIDEBSEBLHIBEFEE, 1422 
öWN> 1225 DATA 816093720801B4C62E4A9,842 ‘BE? 1308 DATA B11BA906C9H9FB88DBABA,B8i4 
ab} 1226 DAaTa BZ28b1CHZ4cs2Eda2abäh, 90T <CI> 1381 DAaTa BABABBEbLBEb7ZI1BACHS , 661 
<bC> 1227 DATA 654CBI1L8A20AAUTAACHT „10123 <cH> 1382 DATA 18490685D6811B4C861BAF, 905 
oo iA0> 12286 DATA 18A4204AB8I8E9C1BESCHA, 822 öP}> 15303 DATA 068D1CH260A9070.T501,644 
ei FL? 1229 DaTäa iBAcc5oLd4shA9ERa0890 4,1128 ‘<BH} 1784 DATA. AbIFOeLFOB8sCcEIF7e1dcHBA, 951 
aA) 1258 DATA A9C9800808269840484916 , 344 {BE> 1305 DATA 13A406425C93E0005A9008,974 
ni ‘“DK> 12I1 DATA 80090449068000026448, 1056 ‘EC? 1I86 DATA 806425AB6I250085A93IE, 1071 
“ iFG> 1232 DATA 48A9148D689C4A9BCEDBB , 1121 JM 1307 DATA 8D6I25CEBZIBCEBBIBCE, 1714 
FL 1233 DaTa 0268548264990860C13A9,1090 GH} 1308 DATA BEIBCECS1BAFBLEDTT7EL,1814 
Jans 1254 DATA ICBDELLTADOBDA8SCFAF, 1446 <FP} 1209 DATA ABZIIACIBCOOOSAFBDAL , 1172 
[8 PP} 1275 DATA B88bAS2ZDACEA12128T 14,847 ‘<EM> 1318 DATA 23344024346005498C80 ,1059 
| 0A> 1756 DATA 25097979515 1L485B5 151,775 <J3L> 1311 DATA Z4IdEEDILIBEEEZIBEEES, 1528 
I. CH? 1237 DATA 48485B5B5151A2796042,1029 PL? 1312 DATA 1BEEEC1B4CHBLT2BB808,627 
| ze ‘DN> 1238 DATA 796042806CA28086C9079,1278 ‘PO> 1313 DATA 00000000000000009000,0 
| “EC> 1239 DATA 660987958 A2806CA2885C6, 1248 <PP> 1314 DATA 08000000008008690900008,0 
AL? 1248 DATA 96796090796999795890,1222 ah> 1315 DATA 0000090809806808888808,0 
i {FB> 1241 DATA 795BA278086CA28096 CH BA9, 1281 <aB> 1316 DaTih 0006005000860, d 
{PH> 1242 DATA 00802F6200I0828552780D,737 “ac} 1317 DATA 806000060800000000008,0 
T- ‚ EM} 1243 DAaTa G40b48005D4AECHSDRE0H9, 1081 ab} 1318 DATA 00000090000000000008,8 
005 1244 DATA D0802802803500180 3101, 772 “AE> 13139 DATA BRBBBBBHBBBBEREnanee‘, 0 
%BH> 1245 DATA 863201868 118806B1CA9, 883 ‘PM? 1328 DATA 880000000889008009008,9 
DB: {bDH> 1246 DATA BEBDETLEBDCEnZ2A92can, 971 PN} 1321 DAaTä 00600089809000900809098,9 
f <än> 1247 DATA II01A4984855649188007,967 PO 1322 DATA 80000600060690806080806,0 
PH? 1248 DATA D480627028029028b60182, 722 <PP}> 13I2I DATA 800680088880889880988888,0 
u ze EH> 1249 DATA A9F7B8bLC1628DB8eDB88DBL, 1116 “HJ? 1324 DATA 000089808088B1CI6BCHB , Add 
| <FH> 1250 DATü DOA9B4HB6FOZAFsuübsF,1i1I6 {KF> 1325 DATA 5041040400808 12240080,225 
FAä> 1251 DATh B5A914856A8DF48280C4,1157 “ac? 1326 DaTa 0000008008080 009008,0 
CI} 1252 DATA 82A96A862602A98C8088, 956 “ab> 1327 CATA B0000888880008880008,0 
‚, sKEF+ 125I DATA B2A98I8D1DDBEAF1F3559,974 ‘AE? 1328 DATA BBRBB00H0HH0Rn0BRdadn,n 
| GM} 1254 DATA A9DBI0CS50249I680C602, 1289 af} 1329 DATA 00000909880000808808,0 
AP} 1258 DATA A?0680C702208C06209C, 887 {PN} 13308 DATA B00000908008000088208,8 
{PI> 1256 DATA 0864206A408094907205CE4 ‚862 PO} 13I1 DATA BBBBBABHB8H00B080008,H 
“PH> 12567 DATA A9018063102601B82A904, 785 PP} 1332 DATA 8008008886808880088#, 6 
Gb> 1258 DATA Bb1902AICB8D8Eb4A390,120% Aah> 13353 DATA 00000000000000888088,8 
CA 1259 DATA 06220ZA91E062I02A9ID, 704 aß} 13754 BATa 00086000000000000806808,0 
KL} 12768 DATA 8D2F0OZ60808008800088, 286 ac) 13I5 DAaTd B0AR0OEHRA0HHLHERRHR, 0 
‘GCH> 1261 DATA B0B8B0808988088982F2F ,34 ab} 1336 DATA 00000980080908080008888,9 


Junifduli '86 


MHOMECOMPUTER II 


A 
j 
= 
w 


I2 HOMECOMPUTER 


009000000009008090000,0 
0000800009090880008989008,6 
BERBBDRRBBBHBALRHHRABBRE, EB 

1: 1= 1:1: 1: 0:0: 0: 169675 9: HH 7 Bi hide DET Die 
DABeahaddaevyddneedgdgdeaede, en 
59000509995008050008808 ,8 
008080980088660069008908,6 
0000900000008880008088,% 
Oddddeaydaaaadddoddgdeand,hn 
BBHBHBBBAATugaggdgdede,e 
00000906800000808989568,% 
0809900928890088989808,% 
080000000080009009079,57 
3ETCEB80800888988I83878,578 
1824240608080 800806898,1Tä 
I: 5:7: 7:78 78727772 9: 9:95 9:7: 7: 7 7 TS De DR} 
00000800008609008088088 ,8 
00069009009800609099809,9 
Bu08BBBBABABBBBuBAnne,B 
000000006000000000000,0 

[5 1:1: 1:1: 1:1: 15 0: 0:0 5957575 0:93 0: 0:0: 9: DR: 
5809828980888 88889808888,8 
2006080800099009008090088,58 
9800898906898888000888,58 
OBE8ANARBARBBHAAHnneB, 8 
B80080888008088890888,# 
00090000899098086908008,98 
0808088988813 T743JE 2828 ,218 
18544506600480880180000 ,584 
183435E28203808444076 ,516 
08989066 BBB888Cc. 1A1LF14 , 191 
101C0045868440008182, 702 
088088182C7C14041C22,278 
BAabzeagulLluallsannnulBic , id 
7C14841C08822026E088808,322 
006600097958F82830878,590 
5042612102088 14100088 ‚438 
0000I86CID1DIABZIG68, 554 
0088442880888 8ILCTCIE , 288 
I3C9IA814I00008840 1008 ‚626 
101: 751: 15 1: 1: EB Eee 41-14 
hheeedslhızzgerhbi5äudlLFe, 3 
S6LEFSBLACAGLBACCHIG, 977 
KEDILBESCDTLEBECBALEAC, 1719 
CCLBAEDALEBED4LGBECC, 13754 
I6ACCDLSEAEBSIGBSCDHSELE , 1285 
BECDIGACDBLEAEET168C, 1745 
EIJIS8BEBBLEACDLIGAEEA4 , 1448 
168CE416BEDEI1BACDDI1G „1211 
AEESI6GSCESILGBEDBIGAC, 1T 713 
FALGAEBZLGEECBZIEBEYTA, 1826 
LEACTBLGAEBBLEBCHUL1E , 960 
BEFOE164CA1L180000007T2, 598 
76C780C868181800583379 ,636 
3868190832 7C768C088818,5676 
180083058 I83383682C4400, 408 
193E382400080C0070738, 303 
Z8J8I82C5E48B8884LCTEBE , d64 
BE088A18BBA1CILCLC1IC1E6 , 169 
BABBACZEBEHTHB8B 1888 , 195 
BELCLIELCICTFAZ Z88987C ‚A886 
iCB6EBHaLBTBBBe Ci CiCcitc „194 
1iCI4280865899C7CIE87088 ,467 
8888801C1C1C1CI4 2008 ,196 
AB7TCEIEBIOOODBBGBHLBEITC , 296 
Sc7C7Cc88880088 I IIE7C,567 
E808B888880I838I8I38 7A, 498 
240000900880809899#808,J6 
0000999088898088800908,8 
O88B88838488BBRRAa0008,8 
88988800889000805J02F ,95 
2B250881118168C1 11614, 212 
27I20E10009800008008080, 119 
[3131 0: 1:1: 1: 1:15: 1:75 97 8:8:9: 75057575050: 00 
998889688888882289088808,128 
GAB, 
[@1e1= 1:1: 7S 1-7: 1:05 8: 8:9:7: 7:7: 7: 9° 9 Di on] 
geaAaAABARRAHEHBB dann, 
869085808818 2818281862,777 
B1827ALA2ZE1A7B 1828182, 1295 


‘ab> 


<BK} 
<“BC> 
Al)? 
“ak 
‘BE>} 
BG} 
<AaH>} 
“AL> 
<«Aac) 
“al? 
<BL>} 
<äaLl} 
a 
<a} 
<A0} 
‘“BG)} 
aL} 
<BB> 
<ak} 
AM) 
“am 
<BE+ 
‘BF > 
AG} 
Zah} 
AL} 
‘BB} 
BJ} 
<al> 
{BE} 
<BH} 
<BF} 
AG} 
4-T:$ 
BP} 
BB} 
<B> 
<Bb>} 
“äm) 


“AG: 


BG) 
AG} 
<A) 
hl) 
8.13 
<BK} 
he) 
‘BE} 
<BF} 
<BG} 
{AL} 
“BH} 
<BI} 
<BP} 
AM} 
<Bb>} 
aM} 
BF} 
<B0> 
“BH> 
BI} 
<BH} 
icA> 
“AaLl} 
‘BD 
‘BL? 
<BH?} 
“B0) 
CG} 
<B1I} 
CT} 
“al 
<Bc>} 
‘<Bb> 
“ah 
Ad} 
‘B0> 


<Aap} 


DATA 
DATA 
BATA 
DATa 
DATA 
DATA 
DATA 
DATA 
DAT 


DATA 


DATA 
DATA 
DATA 
DATA 
DAT“ 
BAT 
BAaTa 
DATA 
DATA 
BATA 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATü 
DAaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT 
DATA 
DAaTa 
DAT“ 
BATA 
DATA 
bATA 
BATA 
bATA 
DATA 
DATA 
DATA 
DATA 
bATä 
BATA 
DATA 
DATA 
DATE 
DATA 
BATA 
bATüa 
DATA 
DAT“ 
DATA 
DAaTa 
DAT“ 
bBAaTa 
BATA 
bATa 
bAaTa 
bATa 
BATA 
bAaTa 
bBATäa 
bATa 
DATA 
baTä 
PATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATa 
DATA 


8182616281682681828182,1295 
81828182818287848182,129% 
85986818209I78483848586 ,1319 
893848I84858685868182,1319 
558668182838407848784 ,1I15 
8I848586055685868566 ,13 31 
318272586858685868184 „1127 
81849358681828184850986 ,1319 
8686878483840 1928102,1311 
930646182050603840182 ,1311 
87848384818281826162,1303 
558485I84818281828384,13087 
0586856667048 3840619872,1319 
0586818283048 1828586,, 1315 
87848I848182878485086 ,LI15 
938481828304858608194,1315 
558687684858483048182 , 1315 
8I848686818285868586,1323 
81828I84858681828I84,1LI11 
8658683840818281828586 ,1315 
8394858683848 1028182, 1311 
858681828182818628384,1I07 
8I8463848182818286688,1311 
858681828586858651982,1319 
85086858681820856868182,1315 
81828I848I84818285986, 1311 
858685192818 281828596,,1I11 
818285868384838481082 ,1311 
01828I84810205868686,1315 
5566858568 384858 8182, 132 3 
5586818281820 I848384 ,1311 
558681832858681828784, 1315 
85868384818285868384,1319 
8586858681848 78481982,.13519 
5858683984818 283846182 ,1311 
B1828182816285868162,130J 
87548658695866836485686 . 1327 
8I848182818285868586 , 1315 
8508686182978485888586 ,1327 
85868586818281828364,.1315 
8596816281928 5846102,1387 
818283684818281828364,1387 
818678586858661826184,1315 
81825I848I8485868182, 1311 
937848102810283848182,1383 
8182981928192858698586,, 1311 
81820858608182058685086,131? 
53840384858683845384,1319 
83840182839848182681682,1303 
918205868384850681082,1315 
95868182818205868384,1315 
8586879481028 1828686 ,1315 
81828I9848192810828304,1303 
8586858487046 7846704,1317 
818485868585687846182,1319 
850685860508685868564,1351 
8I98481828102819828102,1299 
B1O28I840586818487I84 ,1315 
83508485686818281828182 ,1307 
058483040856681826384,1315 
850868784050681026784,1319 
81825364838487848566 ,1315 
81828394850681826586,13715 
8596651828 784856568586 , 1325 
05868506850485868184,1327 
81829596081082087048182,1307 
81828586858685848182,1315 
03848586858695868182,1323 
83848506838481828586,1319 
858661628182858668586,13197 
83848586858605868184,1327 
818225860I848I848I84, 1315 
0384858685969I848586 , 1127 
5586838483940 18208102, 1311 
8385485868182818293586 ,1315 
8384065868384083848182,1315 
68304858408198207040304, 1311 
5168285866109261928384,1307 
8I8485868618785868384,1319 
81828586810483848182 , 1511 
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Junifduli '86 


3I9485068584958685086.13127 
85868102830485068182, 1315 
818281829182938498596,1707 
85868384818291828384,1311 
8384816285849 3848506 , 1515 
#58683640838481828384,1315 
85868384818283848 182, 1711 
81828162318281828384,12393 
61828102818285868184,1367 
050868304858401848586,1123 
8108481028586019281982,.1307 
8I848I84858685868 784 „1327 
8182058681840 1820586 ,1315 
23840384818285869596 „1319 
016276182818281828384,1279 
8284878485868 58468586 ,1323 
03042102818483040686,1315 
5I8493I84818285868586 , 1719 
818281828182818268384,1233 
830409394958683848506 ,11223 
0I84819820104030408506, 1715 


 835848182018281828586,1397 
ı 838486586058695860384,1327 
 8586878481828I046904,1458 


59304898A489848984898A,1375 
8384890489848984099A,1375 
BIBABFBABIBaAaFBABIsA,1375 
89848984898 A898 A898 A, 1375 
898A40898A89848908A898A4,1575 
81826686858693048384,1319 
8182985868784858683984,1519 
958483848182850868182,1311 
0BI8481828182010208586,13807 
8182818405068 18283084,1311 
5984898489848 98A898A,1375 
5984898A48984698 A898, 1375 
896089084898409648904,1375 
5980890A8984898A898A,1375 
8I8A8I8AEIBABIBABIBA, 175 
8304899848 18285868586, 134I 
03948I8483708405968506,1323 
8lä7ZabBEc9chAdBBacaıL82 ,1485T 
838485868186285868384,1317 
8583683834858681828182 ,1315 
8984898A8 10481828984, 1747 
898A898A8I049I948 182 ,1135 
83848182618283848182,1383 
818283848598687848586 ,1719 
818233846836481826586,1311 
8586868EC7C50008080088 , 949 


 000000899200888888800, 8 


DaBdadaadgaddeagadaeadedgdan, ed 
0000080008009809008080,9 
00090699080000000000,% 
508,6 
818285868182985668182, 1311 
8586858685948 I848I84 , 1321 
85868384858683848182,1319 
81828182858681828384,11307 
858658586CICABB8 8,957 
000080080000000906000,9% 

15 15 91 51 5: 6: 15 7:75 7:05 0: 0: 0677-7 75: Di 
SBadaaaacelegeansannne, dar 
BEBBBBGHuBBAHABBAanden, 
00000898060000800009808,8 
C9CA8I8483848586899A ,14 71 
598A898AaIahItäadähdE, 11T 
C7’CBBBECcAaIaAB 9a A898 dh, 15T 
998489848984898A8984,1775 
898n808E4142008008808,568% 
8B68C8D8E4F 5080080888, 721 


41420688C8182810828586,1195 | 


EEGACGHTASASEAHDHGBEUSAE , LTTE 
0I0646384838401048304 ,1I15 
8182018281878192808E,1317 
C7’C88B8C8708887888768,1491i 
8796078067888 7888768,1355 
8780887886870887888788,13565 
8798887888788878898788,1355 
87888788878887888788,13556 





1577 
1578 
1577 
1588 
1501 
15682 
158JI 
1584 
15095 
1586 
1587 
1588 
158? 
1598 
4591 
1532 
1533 
1534 
1533 


1596 


Er a 


15%8 
1537 
1688 
4681 
16062 
1603 
1604 
1605 
1606 
1697 
1688 
16989 
4618 
1611 
1612 
i6i3 
i6bid 
1615 
i6i1& 
i617 
Ii618 
1619 
1628 
1621 
16272 
1623 
i624 
1625 
1626 
1627 
1628 
41623 
16798 
1631 
1632 
1633 
1654 
1635 
1636 
1637 
i6S38 
1533 
1648 
1641 
1642 
1645 
iG4dd 
1645 
1646 
1647 
1648 
164% 
1659 
1651 
1652 
1653 
1654 
1655 
1656 


bAaTa 
DATA 
DAT 
DAaTa 
BATa 
DATA 
Data 
bBATA 
DATA 
DATA 
DATA 
bAaTä 
DATA 
DATA 
DATA 
bDAaTa 
bAaTüa 
bBATA 
DAT 
bATa 
bATa 
BAaTa 
BAT 
bAaTa 
Data 
DAaTä 
bDATä 
bATa 
bATa 
DATA 
DATA 
bAaTä 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
bAaTa 
bAaTa 
bATA 
DATA 
bATü 
Data 
DATa 
BATA 
bAaTä 
bATa 
DATA 
bAaTä 
DATA 
bAaTäa 
DATA 
BATA 
bBATaA 
bBATäa 
BATA 
bAaTä 
DbAaTa 
DAaTäa 
BATA 
DAaTäa 
DATA 
DAaTü 
DATA 
DATA 
DAaTa 
DATA 
DATA 
bDAT&“ 
DATA 
DATA 
BATA 
BbATa 
DATA 
Data 
bATA 
BATä 
DATA 


SOBECFCBEBBACHSAsDDBE , 1611 
41428B8C898A898A4898A,1235 
298489848398 A898 A898 A, 1375 
898A890AB98A898AB98A,1375 
BI0A29I0ABIOABFDABDBE, 1383 
C7’C88B8C878887808788,1491 
8578887665 7588758887858,1355 
8786665788878867888788,1355 
570807680887006087088784,14355 
57888783878887888788,1355 
BrFass7ssspseEc?7casßBsat, 1507 
80D8E4142888880888888, 414 
000 7cCgHnn0n,T7F 
BEEBABHBBEAAEBRHRRHHn, 8 
BREBBaeeaegdadhaeteeee,en 
41423B8C087868878483084,1207 
578887868b8E4142888C ,1235 
0598685084850685848102,1317 
818283984855687848182 , 1711 
850968182818283848182,1207 
„uo4u5OCEDBBECcFCOBaBac , 1491 
83848584858681028586,1319 
818268384878487848586 ,1315 
81820162868E434400688, 336 
6000000086500098980900808,% 
CICABSEIGASSEAnHBEl 7Cd, 1617 
BBSCBLEZERBEALAZANGG, 952 
8888288888 B88BA0BBR8,R8 
0000000080800909C0008,J11 
0900009000869090000089068,% 
80808008808080802C7C53B8C,675 
855086858683684818201682,1315 
838481928586898A8182,1323 
0368408594058685868586 ,1727 
8586858668586 878483684 ,1127 
51028784838483848304 , 1311 
SDBECFCBEBBECBbBBEdL1LAZ „1375 
800C8780870887880788,1763 
8D8EC7C38B86C87888788,1583 
5700887888708878887868,1355 
878687808089E4142008C, 1235 
898A489908A698A898A8986A, 1375 
SDBE41428B8C85868566 , 1227 
818285866364816828566,1315 
078481820108285868586,1315 
838485868182836868182,1315 
SDBEC7CEBBECcHLN28IG04 , 1481 
8586808E4142088C0182,1217 
858681028069E41428B8C ,1219 
018267588788878887688,17543 
878887685bB8EC7C8888C,1503 
85068DBEC7’CB8B8CHI8A,1583 
SDBE41428B8C07888788,1235 
87888708878987888768,1355 
sra48780870887888788, 1355 
87808876687860768587886,1355 
87800304810928I048182,1315 
818285869818 281828b8E ,1327 
4F500000414208B8C8596,.836 
8566838485868 3848566 „1327 
CICADOROBHODAL1A 2894 „797 
#518285868I84808EC7C8 ‚„id?i 
SBBCODBEBBaDnGsBäcBhsE, 1124 
41428685C8586808EC7C6,13159 
058C8984898481028384,1351 
CICABBBBAFSOBABHBABEc , Ball 
5SDBE0880898008908609898 ,283 
BEBBahaeeatteeeeedeee, de 
CICAB1L829830485868304 , 1455 
81828586818285868384,1J15 
258695860108483846182,1217 
818285868 182868EC?7CB8 ,1467 
8B8CH9B8AB9BAB9BABDBE , 1387 
4142988C898A698A890A,1235 
SCBE41428B8C6F9B Aa, iz 
8I8A8I8AB9I8A51829182 ,1I4F 
SBBECFCBBBBCBSASEBbBE, 1511 
cC7’C808800002000804142,530 
8886858685086898A0904A,1363 
89848984898 A898A898A, 17756 


Homecompurer #3 


u. <HL> 
gr <HH> 
“HH? 
Ib} 
LU} 
{DM} 
{BB} 
<HL>} 
FC} 

<PI} 

| u Ei 

| £FJ> 
m !' «EFF 
<HO> 

| {BC} 
a. ‘BK) 
IR “amd 
| <PP> 
| # A 
| <a) 
| “Al? 
| {FG} 
JM} 
'>% (EI 
ED | {Lb> 
“AaH> 

AL} 

Ad 

äk> 

al ‘LC} 
“= «cr 
<cP} 

“DH> 

. IH 

| <EL> 
CL} 

.JA> 

Ak? 

{HL} 

1A} 

<BC} 

‘BE? 

<EA) 

| ‘GE? 
nu zZ {DI} 
| <D.J> 
| 00) 
| {JE> 
| <JD3 
<D0> 
{FD} 
<bDP} 
=] “EA 

i ‘bB>} 
'  <Frk) 

MM m ‘Bc} 
<KH> 
AP} 
DD} 
“HF? 
Br Ar} 
{GP} 
<Db.J> 
<GL> 
CL} 
{BI} 
‘BB} 
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1657 
1658 
16593 
1660 
1661 
1662 
1662 
1664 
1665 
1686 
1667 
1668 
1669 
1670 
1671 
1672 
16727 
1674 
i675 
1676 
1677 
1678 
16737 
1680 
1681 
1682 
168% 
1684 
1688 
1636 
1687 
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1689 
1698 
1691 
1692 
1697 
1694 
1695 
1696 
1697 
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1763 
1704 
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1706 
1707 
1708 
1709 
1718 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
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14 HOMECOMPUTER 


BATa 
BATA 
BATA 
bBATA 
bATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
BAaTa 
DATA 
bBATA 
DATA 
DAaTaä 
DATA 
DATA 
bATa 
bBATA 
bATüa 
BAT“ 
BATA 
bAaTa 
bAaTa 
BATa 
DATA 
bBAaTa 
bAaTa 
DaTa 
DATA 
BATA 
bATA 
DATa 
DATA 
DATA 
bAaTaA 
DATA 
DATA 
DAT 
BATA 
DATA 
DATA 
bBATA 
bAaTa 
BATA 
BATA 
BbAaTaA 
DAaTa 
DATA 
BAaTA 
bBATa 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DAaTa 
DATA 
DATA 
DATA 
bAaTa 
DATA 
DATA 
DATA 
BbATü 
BAT 
baTa 
BATa 
bAaTa 
BATA 
DAaTa 
BATA 
baTaı 
DATA 
DAaTü 
DATA 
DATA 


2985489648984898A898A , 1575 
BI8EABIBABIBABFBABFEA , LI75 
59848984898 A8B90 AB 38 A, 1375 
EITTERITTERTTERTT et 
41428B8C414200000000 , 5di 
AFSOBSBBBA1L8ZCT7TCHB58 ,1I51 
8I844142838405868586 „L1#1 
BIEASEHHBEEFCBSBACH SB, 1491 
5878858586808 E4142Z6808C, 1251 
8182808EC’C5adbedd, Fl 
454685B8CBDBEL7CBEBB5cC, 1379 
378887688984898487838,1I6J 
8780875087888 7688788,1355 
873887800D8EC7CB8B8C „158J 
8586818285986810828384 ,1315 
97848586838485868784 ,1321 
0506018283846 T 448182, 1F 11 
58I846D09EC7C80006090898 , 945 
000080008060560080889,0 
008080808B808888898800,06 
90000080009008080800800,8 
000804142888 C80BEC7CE, 10892 
588C85968D8EC7CAä8B8B8C ,1507 
597888568E41420898C8182, 12273 
509E414290090808808889, 414 
0202088280080 208808,8 
BaBadBBBRRHBEnnnununue, en 
008006090060808660808088, 0 
OOo, 
80009980956080699065556,279 
41428886C3898A898A898A, 1235 
8586C7C8818285864142, 17327 
8182858661820 I048068E ‚1331 
c7’C88886898489848984A,159835 
8b9E41425886858638182,1219 
818287688788878858384,1335 
BSDBECEFCEBBaBäaccdb bel, 1575 
988800809899098080009890,8 
9908888906888569894 142,131 
88850CC7C8853685386853886 ,1491i 
8182818285368 1828596 , 1311 
95868359485 182981828182,1307 
BLBZ8182858685868D8E,13IT5 
C7C8ö8B5C0C85788587856788,1491 
B78887808878887888788,1355 
8788878887888 7888788,1355 
878887888788808E 4142 ,1227 
BBBECcBnBECc 7CBBBBEB 182 „1A 99 
öbBEc7cBBBßacd hide, 15a 
41428886855869D08E 4142, 1091 
öB8C8 7888780878568 788, 1563 
8788878887888 7888708, 1355 
678988788878887888788,1355 
578887888788878885384 , 1347 
585C5B5C5B5C5B5C5B5C, 715 
585C585C8Db8E4 1420008, 780 
6364b50667088B8CC7C8,1953 
85868384414281525586,11987 
BFAASELSFEDBECTLCEARGR, 17084 
020000000000800004142,131 
8890898489848 98A898 A, 1579 
8398ABI3ABIBABDBEE FCHE „15087 
88B8C8b89E4142888C8 7358 „1243 
5785887985878607888788,1355 
870808868L.4142088CC7C8 ,1363 
EBEECALIFETEIBSEHEBT BA , LIT L 
8182859848 3848565868586 , 1319 
858969182818 2983848586 , 1315 
538483584856 8EC7C08B8C , 1487 
8506838485 648566 8784 „1327 
B182958685986818 28182, 1311 
518298586818281828384 ,1I07 
858680 8E4 14288 BEBbBE , 1243 
EC7’CBBöBacsJIdBd4dshbBEc?7cd ,i623 
SBSCHLSEFSDBEALAZEBBE „1271 
85868508E4142888C3586, 1237 
818285865058685960304 , 1323 
BLBEZBELSZBDBEALAIZEBBC , 1211 
8I8481820182878405686 ,1I11 


9509681828586818283384,1315 
de Le 


{BH} 
<bM> 
<b0> 
<BH} 
{HH} 
{MK} 
HM} 
<B> 
‘bE>} 
{HC} 
{GM} 
<CG> 
‘BB} 
AL} 
“IA? 
<cB} 
BD} 
{DI} 
{IH} 
IF} 
<HCc> 
{bc} 
<cA} 
<EI} 
<Aal? 
<cc} 






{MB} 
CH} 
<b> 
{HP} 


orkramen"+?7 


BB} 


> POKE 764,255 


18 REM 


BATA 
DATA 
DATA 
DATA 
DATa 
DATA 
bATA 
bATä 
DATa 
BAT 
bAaTa 
DATA 
DAaTa 
DATA 
DATA 
DATA 
DATA 
DATE 
DATA 
DATA 
DATA 
DATA 
DAT 
DATA 
DAaTa 
DATA 


BE6E685868102870848I84,1519 
SCbBEd41428B8CB1828152 , 1211 
853683194C7C885868182,1455 
83848586878485868182,1319 
8bBEC?TCBAaBBECce?7E88788,1587 
87088508E4142600990008,685 

000008000888051528688,1563 

08888800C7CBABBACcäbBE ‚361 

4142856C0586818289984A, 1211 
BIEHB9BAHIABTBASHBE , 1F 71 
4142888CC7C888868566,1355 
8508687940658685868304,1327 
838485940830401628182,13507 
83840810620182983848506,, 1311 
öb8BECc7CcB5B8C85868586 , 1435 
858685656830493848586,,1327 
8586858687848 10820182, 1315 
Bi8261828596859868D8E,1335 
41428B8C808EC7CBO8Bat, 1371 
858680 BEC7CEBB8CB586 ,1495 
SDBEAL428B8CHIOABDDE, 1257 
41428B8C858605068384,1207 
85865566818485868182,1323 
B6C8E41428B8C8I848I84,1219 
8384818281092016285686,1387 
85868I84858687848566 ,1327 


Teil Vier 





AMH MIT | 

i1 REM BE WITSES-TEr: VII 

12 ? “allbiskette mit MIS53I.DAT hery 
"dann eine Taste druscken" 
HG} 13 IF PEEKt7643=255 THEN 13 


15 OPEN #H1,9,0,'"b:HI5333.DAT" 


“JH> 16 DIM ASC20),BFCZ2I 1 5SCHECK=ZO:ZE=Z108 


<FO> 17 RESTORE ZEiREAb AS5,5T:ı5=8:5CHECK 
=5CHECK#5T 
“ka> i8 FOR I=tL TO i9 STEP ZiBS=2AScı,ı#1 
I:603UB B8:PUT Hi,A:5=5+4A: WEHT I:T "ZEIL 
E U FE 
iFI> 19 If 54>5T THEN 7 
ZEILE ";ZzE 
ol} 258 ZE=SZE+IHL:TRAP 308:6070 17 
<PE} ZI8 CLOSE BL:IF SCHECKHGI158IT THEN 
40 
“PA 37 7 
<KE> 48 7? 
{Ib} 80 
ulzAal-? 
<IL}+ 82 
atsa2-?7 
{kF} 04 
‘ap? 1000 
PI> 1001 
sFE3 10692 
FC} 1887 
“EI? 1004 
‘bB> 1005 
<Fb> 1006 
£HN> 1087 
{kM} 1008 
<ch} 1009 
<EJ} 1010 
“a0? iBili 
iPF> 1012 
“FL> 1013 
‘<EK} 1014 
“GP? 10i5 
<bH> 1816 
<bL> 1017 
“.sA> 1018 
<HK> 1819 
<FJ> 1820 
ip? 1021 
<cE> 1822 
‘iCG} 1823 
PL? 1024 


H"GATEN-FEHLER IH 


„DGendlich fertig T7TIr"ıEND 
“Schecksumken-error'';5SToP 
SlzäsccBsc1, 13) - da: IF Al}9 THEN 


ArSAsctlBFt2,23)-4B: IF A2>9 THEN 


n=sAl#16thä2: RETURN 

BATA 8I8408TI848T7846808E08098,1072 
bATA 080000000000009988098080,%0 
DATA C7C881828D8E414Z28B8C, 1351 
DATA 8182850885868D93EC7CA, 1475 
DATA 8B88CB1828T8408586808E, 1351 
DATA A1428388C8788607888708,1223 
DATA 3788878887087 8hhddeE, 13 
DATA EC7CBBBdscdpBaEa142888C, 1771 
bDAaTAa 8BoBE4il420008000888000, did 
BATA BOO0O08BECObBE4142BB3C, 972 
DATA C7CBE8BECcET8485868 182, 1467 
DATA 87848 182858685868384, 1319 
bBATA 8182818283108 2058685986 , 1311 
DATA 858668I19348586808EC7CO, 1479 
DATA 8885681828 1982698A898A, 1347 
DATA -8I8A3I98A48 984898 AB 98 A, 1375 
DATä 898A890ABIBABLBZ28182,134J 
DATA BIBAALEZED8aEA1428BBC, 1215 
DATA BDBECT7TCBEBEBECAHT 848 BE „1587 
BATA C7’CBBBEcEI8Asp8BE4142,1367 
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1434 
143% 
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1441 
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1451 
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BATA 
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DAaTa 
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bATa 
DbaTa 
BAaTa 
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bAaTa 
BATa 
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baTa 
BbATa 
BATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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bAaTa 
bBATA 
bATA 
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bAaTa 
bBATA 
BATA 
bATA 
BATä 
BATA 
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BATA 
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BbATä 
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DATA 
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DAaTä 
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DATA 
DATA 
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DATA 
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DAaTa 
BATA 
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898A0898AdIB8ABI0ABIOA, LITE 
BI8EA8IEAEIBABIaAgIBA,iIT75 
BIBEABIBASIBABIBABIBNA, LI75 
8984098489848 9648984,1T75 
BIBABIBABIBACTCHEBELl „,1507T 
516289785489840984998A,1359 
BIBABISABFIBABISABIEN, 1375 
5984898485 984898 A898, LEE 
898AB98AC7Cc88 98 A898A, 1499 
8788898A39IBA098AB90A,1T71 
8984890489848 93849984,1T75 
898A8985A850603848984,1355 
BIBACTCBEIGCAHGIEAHIDA, 1499 
8994898469848 908 A896 A, 1375 
BIHABFBABFIEABIBAgFBEA, 1375 
5938489845958A48908A898 A, 13776 
98483548984899848984A,13765 
3984898489848 98A898A, 1775 
89840904898 A898A098A, 1375 
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8I848788878887488788, 1347 
9788878887868 7888788, 1355 
5788878887868 78883854 ,1347 
SBSCSBSCSBSCSBSCSBSC , 215 
SBSCSBSCE78887888788, 1179 
5785878987858 7888 788, 1355 
870887888780878898788, 1755 
5789879887888 7089760,11355 
87888788878087888788,1355 
5788876987888 7688788, 1355 
5585681828798845060993, 1381 
Z204F809C608AS5D1b88T20, 1262 
FFEOCSDLASCCCIAUFORT?, 1659 
POCBBOCGELCEAEAASCDENIF, 1801 
AaarFöna7BbasbztschbEAgäA, 16352 
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GEEAEAASCFECICZFOEBFBR , 18293 
87D2C6CFEAEAAH9BDRBSAD, 1469 
EaAEAdCc9IOLEAbELELBEOODO , 1250 
B2ADGL8EZSD8ZD 2ADE 185 , 1364 
8b84b2Ab61B84B85DbBEE58, 1416 
8BEES6BSBEESCBOEE56200, 1502 
AyAbBSsccAI+adEBSCcDAFAE, 1704 
SSCEBHBADAFSSEDOEDZAD, LAAD 
AF8685L. LAFTCEBSCFEEBB, 1726 
SBHEEBEGLOEREBAIFIDOEODHE , 1146 
b28050808065680805C80, 1275 
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HESSCCBSCHBSLCEBSCFAF, 16F7 
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SCcBL181LB1L20608C8Cc 1818 ,168 
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©, BP} 1655 DATA I1LICI2I0IBIBFFOO6AGA, 869 ac} 1704 DATa 
' HB) 1656 DaTh BLILIFZISCILZLZCIZIL, A41 ; “Ab} 1785 DaTa 
{NE> 1657 DATA I22CI1I0OI12CI2I82CI1,475 L iAE? 1706 DATA 

0b) 1658 DATA I4I12CI2ZISEECIZIOIB2C, 491 ar? 1787 bATa 

{NG) 1659 DATA I2III42CI23II42CI2II,495 o AG) 1708 DATa 

{HK} 1660 DATA IA42CIZIIISZCIZIIEIZE,4I0 1 sau} 1709 DATA 

<MJ> 1661 DATA I1I6I52CI2I02CI1I4I1,492 “PP 1718 DATA 

{HHb 1862 BATA 26CI2I22CI2I08I82CI1I7,490 “aa> 1711 DATa 

{NH> 1863 DATA FIZCIHZISIL2ECISZCTZTI4,490 N {aB> 1712 DATä 

{0b 16564 DATA IGZCI1IG2CI1IETIZCIT, 408 | “ACH 1713 DATA 

'  <oc} 1665 DATA I2ZZCILI4I1ZCIBZEIZIL, 407 <Ab> 1714 DATA 
{LJ> 1666 DATA I09600011581501I1I6T9,407 “AE> 1715 DAT 

0m) 1667 DATA 2CI92CI1AI4F12CIBZCI2,dU0 t “ar? 1716 DaTa 

{LI} 1668 DATA I1I09B84012424013137,434 5 “hG) 1717 DATA 

‘0G) 18669 DATA II2ECIIILZCIZTOTBECT?T ‚dar?  kaH} 1718 DAaTa 

{NI> 1670 DATA I0I12CI62CI2I4I82CIT, 404 | {AI} 1719 DATA 

{äL> 1671 DATA 2037362CI4122CI59B0E,565 iaA> 1720 DATA 

{KO> 1872 DATA Bi2A2A81I1I6II2CI1TII, 196 {aB> 1721 DATa 

{MP} 1673 DATA I22CI1I4I12CIITIS52CI2,406 n “Ac) 1722 DATA 

0) 18674 DATA ZEILIGIEI2CI2ZIZIGZEIL, 495 iAb> 1723 DATä 

<00> 1675 DATA I4I12CIII42CI22CIII6 ,497 iaE> 1724 DAaTäa 

£JG> 1676 DATA 981801200000008080008, 212 8 “Aar> 1725 DATA 

{äL) 1677 DATA 0600000600960860880808,0 ac? 1726 DATA 

<a? 1670 DATA BOOOOOERRRREORAHHHRR , ‘MB> 1727 DATäa 

‚ kahl) 1679 DATA 00000000900800900008,0 bc} 1728 DaTa 

' Aar> 16806 DATA 0000008809006 008888,9 m {GP} 1729 DATA 
AG} 1681 DATA BOBORBELEBRDBHBBREHRR, 8 “EK} 1730 DATA 

ah) 1682 DATA 060600006009900080088,0 <B> 1731 DATA 

(AL) 1683 DATA OB0000EEHA0EEROORRRR, © rgmı *ar> 1732 DATA 

<AJ? 1684 DATA BROBDEABBAUBRRRBERRR,B T “BH> 1733 DATA 

ak) 1685 DATA BOO0EROHEERae, Ä “BG? 1774 DATA 

{äL) 1686 DATA 0006000688090000886888, 8 “PL? 1735 DaTa 

kam) 1807 DATA GEB0RAOHHERHERBRrree, © H “ah? 1736 DaTa 

{an) 1688 DATA BOBBHAHDBHHH OBERE, HR BI} 1737 DATA 

<a0> 16869 DATA BEHEHOHBEHRORBEHR0G, 0 “JM 1738 DATA 

<aG) 1690 DATA 00000800900000008088,0 H ‘HB? 1739 DATA 

ah? 1691 DATA 00000000000000000800,0 2, “40 1740 baTa 

pe “AL? 1692 DATA BOHBHaaHaaagaaaaeaganne,n “OL? 1741 DATa 
1 {Aal} 1693 DATA 00886088008980086808808, 0 “EN? 1742 DATA 
{Aäk) 1694 DATA 000000068900090080008,0 4 fHP> 1747 DaTa 

| AL) 1695 DATA D0000000000000000000,0 E ‘bF> 1744 DaTü 
1 “amd 1696 DATA BOA000900000000000RR, 8 “AH> 1745 DATA 
{AN) 1697 DATA BELEBEREBHBBLLERBRBBR,O “AI> 1746 DATä 

<Aa0> 1698 DAaTa BO000EAHHOaaeaneen, od N iaJ> 1747 DATA 

ap} 1699 DATd 00600000000000000000,0 “AK? 1748 DATA 

{PO> 1780 DATA BEROHAS0000ORAOORR, | saL? 1749 DATA 

{PP} 17081 DATA BBHSBEABRARRAHERERHR, 8 1 <ab> 1758 DaTa 

aa) 1702 DATA 0000008000, AE> 1751 DaTa 

{AB> 1707 DATA GO0ROBABBAARRRRRg, 5 Ar} 1752 DATA 

{LL} 1753 DATa 


0000000000 0000008800,08 
008080000800090000080900,8 
OBER, od 
ODER, 
000608090600069000009,0 
aaaadaaedeeyaddaeadend,n 
BaBABBAAdandeeedeeagneen, en 
0008080080080, 
0B0002000808000000088898,.0 
0O0OOEORRRROEREUBHHR, 
0080088888808 808888,8 
000, 
000008908000009000080,9 
08800080088098808089888086,% 
Haayuyaaaaaadeeeegneenenn,n 
0000800808800800090908,0 
00000090000800000000,9 
Ha Bddeeaehee, 
BBBBEOBABERREBBBOH888,8 

ba 05 5: Pi DE Pe Tu Te Ts ha DaF TFT Ta T5 Ta Tı De: 
0000000000000800900800,9 
B8B088000800088888808,9 
HEBBARAEODBHEEBDhee, oe 
000820988088080400985280 , 396 
BOLZEEBLBAEEBA4BAADOL, 749 
BAFODBTACHBBSAEEBZBÄAEE , 1211 
BS50AAbDOSBACIHBEFOSATAC, 104T 
0084685608 A684938 75052 ,977 
91978080540 549528055,877 
03AF98080588IA92E8053,043 
BIAZ184CHBGEAHBAFRFER , 392 
5205490085540 IA9808b ,928 
550149200865805A4969980,807 
sI08IAZ184C5GE4AF1100,987 
BAFEAFLOESDBBIBSEDBEIB,1434 
AFF320DE293A9358DcET9I8,1480 
AFYZEBDE4I8AFODBDAABT,L1LIE 
n3>39885596:8 2945294640, 924 
46414691A4bAdAFEBAFER, 1706 
4FF94FA200808B8A9600,17208 
BBEDBEBI1ZDCRF568808A400,1265 
HOSDEEAHARDBDBEHOHHHH, 8 
DERDBBEBAOEOBERDER, oe 
0000000008800028980008008,0 
DEBOOBBOOHENERARHHBR, 0 
GGG,‘ 
Baader,‘ 
0000009000 DBEDEEHn, a 
06009080000000080608000,0 
0000800297500 245508082B, 328 


INFORMATIONEN : SPIELE und ANWENDERPOGRAMME 





INDIE 








_— IN DER ATARI-CORNER 
Einbauanleitung für vier zusätzliche Funk- 
tionstaster in den Atari 600 und 800 XL 














Vergleicht man den Gehäuseaulbau der 
Atari 600/800 XL Computer mit dem des 
1200 XL, so wird man feststellen, daß es 
beim 1200 XL vier zusätzliche Funktions- 
tasten gibt. 

Folgende Funktionen sind über diese Ta- 
sten (hier Fl, F2, F3 und F#) ohne zusätz- 
liche Software erreichbar. 

Der Cursor kann ohne Hilfe der CON- 
TROL-Taste in alle vier Richtungen be- 
wegt werden. 


Taste Fl bewegt den Cursor nach oben, | 
F2 nach unten, F3 nach links und F#nach | 
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rechts. 

Zusammen mit der 5HIFT-Taste hat man 
folgende Funktionen. 

SHIFT-Fl: Cursor springt in die linke 
obere Ecke. 

SHIFT-F?: Cursor springt in die linke un- 
tere Ecke. 

SHIFT-F3: Cursor springt zum Zeilenan- 
fang, 

SHIFT-F#: Cursor springt zum Zeilenen- 


| de. 


In Verbindung mit der CONTROL-Taste 
stehen noch folgende Funktionen zur 
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Verfügung. 

CONTROL-Fl schaltet die Tastatur ab 
und durch wiederholtes Betätigen wieder 
ein. 

CONTROL-F? schaltet den Bildschirm 
ab und ermöglicht somit dem Computer, 
bis zu 25% schneller zu rechnen. Bei Be- 
tätigung irgend eineranderen Taste wird 
der Bildschirm wieder eingeschaltet. 
CONTROL-F3 schaltet den Cursorklick 
ausund wiederein. Durch CONTROL-F4 
kann man vom Grafikzeichensatz aufin- 
ternationalen Zeichensatz und zurück 
schalten. Die Kombination SHIFT-CON- 


TROL und eine der Funktionstasten be- 


sitzt keine programmierte Funktion. 

Für den Einbau braucht man lediglich 
vier Taster mit je einem Arbeitskontakt 
und einer maximalen Einbautiefe von 
22 mm, einen Lötkolben, etwas Nlexiblen 
Draht, eine Bohrmaschine und einen 
Bohrer mit entsprechenden Durchmes- 
ser zum Bohren der Löcher für die Taster, 


DITING 





Für den Einbau der Taster wird nur das 
Gehäuseoberteil benötigt. 

Also trennt man zuerst Gehäuseober-und 
Unterteil durch Lösen der am Unterteil 
befindlichen Schrauben voneinander. 
Beim Abheben des Öberteils sollte man 
elwas vorsichtig sein, da das Flachband- 
kabel von der Hauptplatine zur Tastatur 
sehr kurz ist. 








Als nächstes löst man dann die Steckver- 
bindung von der Tastatur zur Hauptplati- 


ne, um das Öberteilendgültig vom Unter- ' 
| und F2 angelötet, die Ader von Punkt 8an 


teil zu trennen. 

Um im Oberteil einfache Löcher für die 
Taster bohren zu können, entfernt man 
am besten die Tastaturplatine durch Lö- 
sen von vier Schrauben aus dem Oberteil, 


' Für den Einbau der Taster sind die Flä- 
‚ chen links und rechts vom Modulschacht 


geeienet, wie und in welcher Form man 
sie dort anordnet, muß man selbst eni- 
scheiden. 

Als nächstes bohrt man die Löcher für die 
Taster, wobei man bei Tastern mit einem 
Durchmesser von mehr als $ mm mit ei- 
nem kleineren Bohrer (3-4 mm) die Lö- 
cher vorbohren sollte. 

Beim Bohren ıst das Oberteil gut festzu- 
halten, außerdem sollte man nicht allzu- 
sehr auf die Bohrmaschine drücken, da- 
mit sich der Bohrer plötzlich in das Pla- 
stik hineinfrist. 

Nach dem Bohren können die vier Täster 
und die Tastaturplatine ins Oberteil ein- 
gebaut werden. 


Verdrahtung der Taster 





; Dazu legt man die Tastaturplatine mit der 


Unterseite nach oben auf den Arbeils- 


platz, so daß die Tastenreihe mit der 


RESET-Taste nach rechts weist, 

Jetzt sieht man am rechten Rand der Ta- 
staturplatine eine von oben nach unten 
verlaufende Reihe mit Lötpunkten, an 
der das Flachbandkabel, das die Verbin- 


| dung zur Hauptplatine herstellt, angelö- 


tet ist. 

Genau an diese Reihe mit Lölpunkten 
werden die Taster wie folgt angeschlossen 
(siehe Bild 1). 

Die erste Ader wird an Lötpunkt 5, die 
zweite an Punkt 8, die dritte an Punkt I0 


und die vierte Ader an Lötpunkt 17 ange- | 


lötet. 
Abgezählt werden die Lötpunkte von der 





Andie Taster schließt man die Leitungen 
folgendermaßen an, Die Ader von Punkt 
5 wird an einen Kontakt von Taster Fl 


einen Kontakt von Taster F3 und F4, die 
Ader von Punkt 10 an den zweiten Kon- 
takt von Taster Fl und F3 und die Ader 
von Punkt 17 an den zweiten Kontakt von 
Taster F? und F4 (siehe Zeichnung). 


Zur Überprüfung, ob es sich um die rich- 
tieen Lötpunkte handelt, kann man [ol- 
gende Kontrolle durchführen: 

Punkt 5 sollte eine Verbindung mit den 
Tasten K, Lund U haben, Punkt $mitden 
Tasten W, C und B. Punkt 10 mit N und 7. 
Und der Punkt 17 mit der BACK SPACE- 
Taste, 

Das Verfolgen dieser Verbindungen ist 
teilweise recht schwierig und sollte daher 
nur durchgeführt werden, wenn der 
Funktionstest negativ ausfällt, 

Da dies die einzigen Änderungen sind, 
die man vornehmen muß, kann man den 
Computer jetzt wieder zusammenbauen, 
Zum Testen der Taster wird der Compu- 
ter angeschlossen und eingeschaltet, 
Nach Erscheinen der READY-Meldung 
auf dem Bildschirm, geht man mit dem 
Kommando BYE in den Selbstlestmodus 
und wählt dort den Keyboardtest an. 
Nach dem Erscheinen der Keybordabbil- 
dung kann man in der ersten Reihe auf 
der rechten Seite des Bildschirms vier 
Taster erkennen, die mit den Zahlen 1, 2, 
3, 4 gekennzeichnet sind. Werden die 
neuen Taster betätigt, müßten bei rich- 
tigeem Zusammenbau diese Tasten auf- 
blinken. 

Diese zusätzlichen Tasten wurden von 
Volkmar Waschke, dem Autor dieses 
Hardwarebeitrages, Anfang 1985 in sei- 


nen 600 XL eingebaut, seitdem sind keine 


Störungen oder Fehler aufgetreten. 





Unterkante der Platine aus in Richtung | | #23 
| (ie 


des Modulschachtes. 


Taster Fl 
von Lötpunkt 10 





Taster F3 








von Lötpunkt 5 


Taster F2 


Taster F4 


von Lötpunkt 8 


Lötplan 
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Ein nützliches 








Haben auch Sie Angst, Ihre teuer erworbe- 
nen Spielkassetten für Ihren Computer 
könnten zerstört werden? 

Das hier abgedruckte Programm schafft 
Abhilfe, Machen Sie sich sofort nach dem 
Erwerb von Software auf Kassette eine 
zweite Kopie und Sie können beruhigt sein. 
Zunächst tippen Sie das BASIC-Pro- 
gramm in Ihren Computer, Starten Sie 
hieraufdas Programm und warten Sie den 


Datentest ab. Wird kein Fehlerangezeigt, | 
legen Sie eine Kassette ein und drücken | 


PLAY & RECORD. Betätigen Sie nun ei- 


Kassettenkopierer 


ne Taste, undschon wird Ihre Bootkasset- 
te des Programms geschrieben. Danach 
sollten Sie zur Sicherheit noch mit „C5A- 
VE* eine Kopie des BASIC-Programmes 
erstellen. Ist dies getan, laden Sie durch 
gleichzeitiges Drücken von START und 
OPTION beim Einschalten das Boot-Pro- 
gramm. Folgen Sie den Anweisungen des 
Computers, und Sie können nichts falsch 


machen. Haben Sie das Original eingela- | 
den, können Sie beliebig viele Kopien :er- | 


stellen. Bedenken Sie, daß Kassettensoft- 


ware meist aus mehreren Teilen besteht, | 


Atari 600-/800 AL 





Diese müssen Sie einzeln auf die Kopie 
überspielen: 

Was Sie noch wissen sollten: 

Der Bildschirmspeicher wurde bei die- 
sem Programm auf'die Adresse hex A4) 
vorverlegt, Dadurch wird der Speicher 
optimal ausgenutzt. Der Speicher für die 
kopierten Daten geht von hex EWbis hex 
BFFF, das sind fast 45 Kbyte! (Beim 600 
KL ist er natürlich kleiner!) Sollte der 
Platz nicht ausreichen, kommt es zu ei- 
nem Systemcrash! Beim 800 XL wird Ih- 
nen dies jedoch kaum passieren! 


{MD} GO REH +44 KASSETTENKOPIERER +++ 
<HB> i REM AHAAr A A 
<PD} Z REM +AAA+ Gernot Egger i90E ArAra 
{BH?> Z REH 

<AaN) 18 7 CHRSE125I:7, 1:7 "TESTE DIE DATE 

N... 

<#G} Z0 FOR ZEILE=S1098 TO 1328 5STEP 198 
<ENH> Za CKSUnN=sdıFüR BYTE=1 TO 25:ıREADb A: 

CKSUM=SCKSUMFA:HEHT BYTE 

<BJ> 48 REAb TEST:EIF CKSUHT>TEST THEH 7 
CHRS {2539 3" FEHLER IM ZEILE MR. "IZEILE:E 
RROR=1 

‘<BH?> 508 HEHT ZEILE 

£4H> 88 IF ERROR THEN ? :7 "BITTE DIE FE 

HLER AuUsSBESsSERN !":EMND 

{MH}? 78 POKE 764,255:”7 "DIE DATEN >SIHD R 

ICHTIG ‚!":7 

“DP> 808 ?7 "LEGEN SIE DIE KA53SETTE EIH ‚b 

RUECKEN":? "SIE PLAY UMD RECORD AM REKOR 

BER „UND" 

MD} 90 7 "DRUECKEN SIE EIHE TASTE AH CO 

HPUTER!" 

icP> 100 OPEN #1,98,128,'C:" 

<bs> 118 ? ı? "SCHREIBE BOOT-CASSETTE..«» 
“:RESTORE 1088 

<bI> 120 FOR ZEILE=8 TO 32:FöR BYTE=-i TO 
?2SE:READ A:PUT AL,A:MEHT BYTE:READb CKSUM 
:HEHT ZEILE 

KG} 1I8 CLOSE BL:i? ı7 "FERTIG GESCHRIEB 

EN !":ıEHb 

{KF> 1886 DATA 08,7,250,5,2,6,67,50,160,3 

2,1865,20,8,153,31,10,1376,208,247,169,32Z, 

141,48,2,169, 2146 

<BA> 1810 DATA 10,141,49,2,177,89,169,64 
‚135,88,169,298,133.,128,169,12,133,.122, 16 
4,1,141,2408,2,169,0,2501 

‘DG> 1828 DATA 133,82,169,0,141,198,2,16 
31, 208,201,6, 208,249, 3202 

{NP} 19I8 DATA 168,19,185,164,8,32,257,7 
‚i36,208,247,76,8,7,160,40,169,6,153,112 
‚12,136,200,269,96,2837 

<an} 1048 DATA 162,16,169,3,157,66,3,169 
„4,157,74,3,169,128,157,75,3,163,0,157,6 

5,3,169,6,157, 2244 

{HM} 1850 DATA 69,3,32,66,228,458,107,96, 
162,16,165, 206 ,1657,60,3,165,207,157,69,3 
;‚169%,7,1657,66,3, 2449 

IG} 1868 DATA 169,128,157,72,3,169,8,15 
7,73.3,32.,06,2208,48,17,32,1008,7,165,206, 
24,1065,128,144,2,2263 

<£äK> 1070 DATA 2I8,287,133,206,76,127,.6,; 
173,3,5,201,1,208,50,926,162,16,165,286,1 


Juni/duli 'E6 


57,568,3;165,207,157, 17026 
‘DE? 10808 DATA 69,3, 169, 11,157,66,3,169, 
1208,1567,72,3J, 16?F, 8, 157, 73,;,3,32,06,228,46 
‚17,165, 206,24,2218 

<JH> 1096 DATA 185,126,144,2,2768,207,133 
»206,32,110,7,76,104,58,32,31,7,169, 4, 141 
‚1802,6,160,26,185,2463 

<IFf> 11008 DATA 236,8,32,253,7,136,288,24 

7,1737,71,208,201,6,208,249,104,184,76,23 
»6,32,94,6,32,03,2769 

<0oJ> A118 DATA 6,169, 14,1357,207,169,8,17 

=, 206,12,127,6,32,31,7,76,44,7,162,16,16 
4,12,157,566,3,193984 

iPH> 11206 DATA 72,06,228,48,190,96,32,83 
:6,160,50,1858,1795,08,72,253,7,136, 208,247 
‚160,3,177,126,153, 2883 

£HI> 11I08 DATA 209,0,176,2098,248,173,31, 
208,201,6,208,249,160,10,186,225,08,232,25 
3,7, 136,208, 247,1693,89,3526 

{Hc> 1140 DATA i41,102,6,32,94,6,32,83,6 
‚4693, 14,1II7,207,169,0,153,206,32,184,6,1 

0,3,177,128,179,2393 

<NL> 1150 DATA 232,224,26,268,8,169,16,1 

45, 128,1356,76,118,7,178,145,128,96,168,3 
»477,128,170,202,224,15, 3871 

<Br> 1180 DATA 208,08,169,25,145, 128,176, 
76,132, 7,138,145,120,160,3,177,128,201,14 
-,208,14,136,177,126,2081,23935 

<cCI} 1178 DATA 16,208, 7,136,177,128,281, 
16,240, 1,96,162,.16,165,206,157,68,3,165, 
207,1657,69,3,169,11,2784 

HH? 1190 DATA 157,66,3,169,127,157,72,3 
‚169,0,157,73,3,32,86,228,32,31,7,104,10 
‚1064 ,1064,160,43,.2191 

AL? 1190 DATA 185,6,9,32,253,7,136,208, 
247,173.31.208,201;,6,2408,16,201,3,288,24 

5;,168,156,2089,0,145,3322 

iLF} 1208 DATA 128,156, 2098, 248,76 ,44, 7,1 

69,4, 141,102,6,76,29,6,170,152,72,138,16 

2,11,142,66,3,162,2458 

PK} 1218 DATA 0,142,72,3,142,73,3,32,56 
‚228,1904,168,96,32,112,112,112,66,64,18, 

Zi FH 2,2, 1672 

(DI? 1728 DATA 2,2,2,2,2,2, 7,2: 2:;,6,6,2,2 
Pr He Br 2,2,65,32,10,32,78,69,83,418 

£JF} 1230 DATA 69, 76,32,77,85,90,32,32,2 

44,242 ,225,244,243,32,32,1955,155,49,408,4 
8,32,586,32,46,82, 2468 

<MK> 1740 DATA 78,32,75,67,79,76,66,32,6 
3,83,69,76,32,32,32,32,32,127,127,155,15 
5,155,155,158,155,2146 

<KH> 1758 DATA 155,41,54,86,57,493,408,32, 

67,32,32,82,6%,71,71,69,32,84,79,70,82,6 
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2,71,32,1190,1614 

Lb> 12658 DATA 1411,118,32,12,32,32,127,1 
27,127, 155,114, 101,114,101,185, 112, 111,1 
07,32,110,101,116,116,101.115, 2449 

<ıN> 1270 DATA 115,97,107,72,155,155, 125 
‚„32,239,242,245, 244,229, 242,32,32,20,155 
‚32,78,69,66,73,69,82,2974 

Ha} 12566 DATA 72,67,87,598,32,244,242,22 
5,244,243,32,32,155,155,165,35,72,132,32, 
76,69,66,77,69,82,2607 

{Pb} 1290 DATA 72,67,87,32,05,90,132,32,3 


2,32,32,127,127,20,20,28,28, 166, 32,278,2 
42,245,244,229,242,2582 

<G0> 13109 BATA 32,32,26,155,32,32,116,10 
1,97,114,101,103,72,109,97,372,114,101,10 
8,104,181,102,32,32,29,1335 

£FH> 1310 DATA 263,257,2537,283,155,32,28 
‚69,73,80,7%,75,12,69,05,69,76,32,58,110 
‚„‚4111,105,116,112,111,2691 

<TF> 1120 DATA I2,76,65,78,73,71,73,82, 7 
4,12,83,69,85,69,78,58,244,242,225,244,2 
43,257, 28,155,0,2737 





Tips und Tricks für die ATARI-XL-Kassettenbenutzer 


Auf dieses Programm haben Sie gewartet. Diskcas. Bas und Casboot. Bas sind zusam- 
men in der Lage, alle Diskettenprogramme, die als COM oder OBJ.FILES abgespeichert 
wurden und über die L-Funktion des DOS geladen werden, in eine ablauffähige 
Kassettenversion umzuwandeln. 


Wie gehe ich nun bei der Handhabung | Ihrer Kassette: 
der Programme vor, d. h. was muß ich tun 


| Programmen ist auch die gedrückte 


das von Casboo1.Bas erzeugte Bootpro- | START-Taste erforderlich) geladen. Das 


um ein lauffähiges Kassettenboot zu er- | gramm und ein Maschinenprogramm | kleine Bootprogramm wird geladen und 


halten? Zunächst laden Sie das Pro- | (z.B. GROOVE) 
eramm Cas boot, Bas mit dem Befehl 
RUN”D:Casboot.Bas”., Jetzt legen Sie ei- 
ne Kassette in Ihre Datasette und ein kur- 
zes Bootprogramm wird abgespeichert, 
Hinter diesem Programm können nun die 
Maschinenprogramme, die von Diskette 
auf Kassette gespeichert werden sollen 
mit dem Programm Diskcas. Bas abgelegt 
werden. Sie haben nun 2 Programme auf | 


{HK} 5 REF [G 
TE) 

ikI> 6 REM 
1] 

<öf> i8 FOKE 106,64: GRAPHICS 8:7 „"DISK 
-+CA3SETTE":POKE B8,PEEK (881 +48: G05UB 80 
LP? 20 7 "R":cchR ı6IM FFC20) ,EF CIE ı FF 
“pgt;rt +7 SFILENAME : "I: IMPUT EF 

sc) 0 FSCH,ZBISES:IF EStC2,29=":" THEM 
FS=E3 

‘<CcJ> 40 OPEN Bi1,4,08,FS:LA=U5SR (15I6,7,163 
34,32768) ı CLOSE Hi 

<om> 58 7? "LEGE tCA3SETTE EIN + DRUECKE T 
ASTE" 

<BJ> 60 OPEH H1,8,128,"C":A=USR C15I6 „11, 
163784 ,LA):cLoSE Bi 

FM} 78 ? :?7 "NOCH EIHNS'":FOR I=B TO 188: 
HEHKT I:G0oTö 280 

<Hö> 86 RESTORE F0:F0or I=S1536 TO 158I:RE 
Ab AtPOKE I,A:MEHT I:RETURH 

<aB> 98 DATA 104,104,1084,141,82,3, 104,14 
1,085,3,104,141,04,3,104,141,89, 3,104, 141 
‚00,3,169,255,141,1,211,162,16,32,86,228 
<BJ} 1060 DATA 169,257, 141,1, 211,173,88,3 
‚ASS, Z1IZ,173,09,3, 137, 213,96 








<öG> 10 FOR I=20488 TO Z8814:REAb A:POKE 
I,A:HEHT I 

<HJ> 20 7 "KLEGE CASSETTE EIM + DRUECKE 
EIME TASTE'"ı?7 :7 

<G6C> ZO OPEN H1,8,128, "CH": a=uSRc28784) :C 
LOSE 81:7 "FERTIG":IENG 

iJb> 40 DATA 9,3,0,5,6,8 

<tL> 58 DATA 32,218,8,169,67,32,225,8 
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56 DAaTha 169, 7,141,82,37,169,190, 141,8 





startet sich anschließend selbst. Jetzt 
drücken Sie nochmals Start und eıne 


| Ladevorgang: Der Computer wird | beliebige Taste und Ihr Programm wird 
mit gedrückier OPTION (bei manchen | geladen und automatisch gestartet, 


Wir sind sicher, daß wir Sie von der Bedeutung und der Nutzlich- 


keit dieses Programmes überzeugen konnten. Dieses Programm 
ist Spitze und bereichert alle Kassettenanwender im USING. 








4,3,169,8,141,85,3,169,4,141,90,3,.169,12 
8,141,921,3,162,16,32,86,228,76,70,8 

<0üNH> 78 DATA 1737,226,2,141,68,0,173,227, 
2,141,69,8,169,0,141,226,2,141,227,2,32, 
4,1 

<FF} 808 DATA 169,7,141,82,3,169,204,141, 
54,3,169,8, 141,85,37,141,089,37,169,2,141,8 
0,3,162,16,72,66,228 

Fk} 96 DATA 165,204,201,255,208,9,165,2 
05,201,255,208,23,76, 78,8 

<JK> 100 DATA 169,206,141,84,3,169,0,141 
‚85, 2; i4di ‚89,3, 169,2, 141, 58,3%, 162, 16, 32; 
86,228 

“äJ) 110 DATA 56,165, 206,279, 204,137,288 
‚176,2,190, 207,56 

GH) 120 DATA 165,207,229,2095,1I7, 209,16 
5,208,201,255,2068,2,230,209,2398,208 

<öM> 138 DATA 165,204,141,84,3,165, 205,1 
41,85,3,165,208,141,688,3,165,209,141,09, 
3,162,16,32,96,2289 

{bp} ide DATA 173,227,2,201,0,2408,7, 76,4 
7,8 

0c} 150 DATA 1737,225,2,201,0,2408,6,32,2 
15,8,108,224,2,76,.75,8 

‘ok? 1606 DATA 169,12,141,02,3,162,16,76, 
6,228 

‘DBB} 170 DATA 169,60,141,2,211,.173,.28,8, 
201,1,208,249,169,0,141,68,2,141, 248, 3,1 
69,1, 137,2, 141,64,192,141,64,156,76,28,9 
ICH 186 DATA 176,178,165,179,179,128,17 
3,100,161,178,100,128,161,174,164,128,16 
1,174,185,128,171.165,185 

‘<cc} 198 DATA 168,2,162,2,189,0,9,145,88 
208,232, 224,25, 209,245 

“ok 2086 DAaTa 17I7,71,208,201,6,208,249,9 
6 

<HI> 210 bAaTa 184,169,11,141,82,3,169,0, 
141,84,7,169,128,141,808,3,1639,808,141,85, 
3,169,1,141,09,3, 162,16, 76,86, 228 
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Jetzt können Sie Ihren AIARI 520 ST noch effektiver nutzen! 


1. Man kann den Tastaturklick und die 


automatische Tastenwiederholung 
auch vom Basic aus abschalten. Dies 
ist besonders nützlich, wenn inner- 
halb eines Programms eine Tastalur- 
Abfrage staltfindet und nur eine 
Reaktion erfolgen soll. 

Klick & Wiederholung aus: 

POKE 1156,0 

Klick & Wiederholung ein: 

POKE 1156,1792 


. ImST Basic ist es möglich, den aktu- 


ellen Inhalt des OUTPUT-Windows 
im Graphics-Bufler zu speichern. 


Dies geschieht mit dem Befehl RE- | 
SET. Später kann das gespeicherte 


Bild wieder zum Vorschein gebracht 
werden, und zwar einfach durch 
OPENW 2 

Was jedoch nur funktioniert, wenn 
„Buf-Graphics* im RUN-Menü ein- 
geschaltet ist. Es ist also notwendig, 
dies während des Programmablaufs 
festzustellen. Dazu dient folgender 
Trick: 

A=PEEK(SYSTAB+20) 


Ist der Buf-Graphics ausgeschaltet, | 


so ist A gleich Null. 


, Es ist möglich, auch schon im Desk- 


top mit inverser Bildschirmdarstel- 
lung zu arbeiten, falls ein Mono- 
chrom-Monitor benutzt wird. Dazu 
müssen im Kontrollfeld die drei lin- 
ken Regler heruntergezogen werden. 


. Im Edit-Window kann der Cursoran- 


hand.der Maus bewegt werden. Dazu 
muß folgendes eingegeben werden: 
FOR Z=1 TO 3:0 UT 4,19: NEXT 
Rückeäneig machen geht ebenfalls: 
OUT 4,3 

Oft istesinnerhalb eines Programms 
nützlich, die Maus auszuschalten, 
denn jede Bewegung verlangsamt 
den Ablauf, Dies geschieht folgen- 
dermaßen: 

OUT 4,18. 

Auch dieser Befehl wird mit OUT 4,3 
wieder aufgehoben. 


. Der Mauszeiger kann durch folgen- 


den Befehl jederzeit sichtbar ge- 
macht werden: 
POKE CONTRL,122:VDISYS 


i. Unsichtbar wird der Mauszeiger 


durch: POKE CONTRL123:VDI- 
515 


. Wenn Sie einen Punkt im FILE-Me- 


nü gewählt haben und wenn die Bex 


„Objekt Auswahl“ erscheint, so wird 


das Inhaltsverzeichnis einer neu ein- 
gelegten Diskette angezeigt, zuvor 
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Supertricks für einen Supercomputer 


müssen Sie jedoch auf den oberen | 


Balken des *.BAS-Fensters zeigen 
und die linke Maustaste drücken. 
Laden Sie die Systemdiskette und 
klicken Sie TOS.I1MG an. Dann klik- 
ken Sie im DATEI-Menü „INFO- 
ANZEIGE* an. Nun können Sie das 
Datum ablesen, an dem Ihre TOS- 
Version erstellt wurde. Laut ATARI- 
Informationen ist die Version vom 
20. 11. 1985 die aktuelleste. Wenn Sie 
also eine ältere Version besitzen, 
dann lassen Sie sich bei Ihrem auto- 
risierten ATARI-System-Fachhänd- 
ler die neueste Version (zum Preis ei- 
ner Leerdiskette) kopieren. 


Folgender Trick ermöglicht es, in 


LOGO direkt mit der Maus zu zeich- 
nen: 

TO MALEN 

SETFOS MOUSE 

MALEN 

END 

Nun geben Sie einfach MALEN ein, 
und los geht's! 


. Folgender Trick erlaubt die Einbin- 


dung von GEM-Boxen in Basic: 
100 a$="(0VACHTUNG..... OK) 
110 poke cdbl(peeklgb+16)*65536+ 
peck 

(gb+18)),varptrla$) 

120 poke peekigb+8)*655J6+peek 
(egb+10),1 

130 gemsys(52) 

Die Klammern in Zeile 100 müssen 
eckig sein, also ALTERNATE und Ö 
bzw, A. Hinter Achtung kann ein be- 
liebiger Text (nicht zu lang!) einge- 
eeben werden. Das Programm 
stoppt, die Box erscheint, und erst 
nachdem OK mit der Maus ange- 
klickt wurde, wird mit der Pro- 
erammausführung fortgefahren. 


. Der Atari ST bietet eine ganze Reihe 


von verschiedenen Schriftarten, die 
auch vom Basic aus benutzt werden 
können. Dazu dient folgender Trick: 
FOKE CONTRL,.106:POKE 
INTIN,A:VDISYS 
Für A können folgende Werte einge- 
setzt werden: 

Ü normal 

l fetı 

2 hell 

4 kursiv 

$ unterstrichen 
16 umrissen 


Die Zahlen wurden sehr geschickt 
gewählt, denn so ist es ein Kinder- 











spiel die Effekte zu kombinieren: 
Die Werte müssen einfach addiert 
werden! Wenn also z.B. PÜRE 
CONTRL.I06:POKE INTIN,I+4+ 
8:VDISYS eingegeben wird, danner- 
scheint die Schrift fett, kursiv und 
unterstrichen. Der Effekt wirkt übri- 
gens immer nurauffolgende PRINT- 
Anweisungen, dieschon ausgegebe- 
ne Schrift bleibt unverändert. 
Dadurch können beliebig viele 
Schriftarten gleichzeitig dargestellt 
werden. 


. Oft muß ein Programm feststellen 


können, in welcher Graphik-Auflö- 
sung sich der Computer gerade be- 
findet. Dazu dient folgender Befehl: 
A=PEEK(SYSTAB) 

Ist A gleich 1, so handelt es sich um 
die hochauflösende Graphik (Mono- 
chrom-Monitor ist also angeschlos- 
sen), ist A gleich 2, dann handelt es 
sich um die mittlere, bei A=4 umdie 
niedrige Auflösung. 


‚. Leider kommt es immer wieder vor, 


daß ein Programm abstürzt, Da hilft 
dann nurnoch der Grilf’zum RESET- 
Knopf. Natürlich hängt sich ein Pro- 
eramm immer dann auf, wenn &e5 
noch nicht abgespeichert wurde. 
Wenn man jedoch vorher RENUM 
eingegeben hat, so hat der Atari „so 
eanz nebenbei" das Programm mit 
dem Namen BASICWRK auf die 
Diskette geschrieben. Da hinter dem 
Punkt im File-Name jedoch WREK 
und nicht BAS steht, sieht man den 
Namen leider nicht im „OBJEKT- 
AUSWAHL*-Fenster. Man muß zu- 
nächst die Cursor Taste „hoch” betä- 
tigen, dann bei *.BAS das BAS mit 
BACKSPACE löschen und dafür ** 
schreiben. Nun muß man noch ın- 
nerhalb des Fensters klicken undalle 
Files werden angezeigt, 


‚ Die obere Menüzeile kann mit fol- 


sendem Trick gelöscht werden: 
OUT 227:0UT2,7:0UT 227: OUT 
2.75 


; Sie können direkt im VT52 Terminal 


Emulator schreiben, wenn Sie vorher 
in der RS232-Konfiguration bei DU- 
PLEX anstatt „Voll“, „Halb“ anklik- 
ken und anschließend „OK“ nicht 
vergessen! 


- Im ST Basic dürfen niemals alle 4 


Fenster geschlossen werden, denn 
ansonsten ist es auch mit der Menü- 
leiste nichtmehr möglich, wieder ein 
Fenster zu öffnen! 
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17, Es ist sehr empfehlenswert, Pro- 
eramme direkt im EDIT-Window 
und nicht im COMMAND-Window 
zu erstellen! Leider muß man dann 

| zwar auf die automatische Zeilen- 

nummererung verzichten, aber 
dafür bietet das EDIT-Window viele 
vVorteie. U.a. natürlich die zahl- 
reichen Möglichkeiten, Tippfehler 
zu verbessern. Nicht nur BACK- 

SPACE, we im COMMAND- 

Window, sondem auch die Cursor 

und Funktions-Tasten stehen im 


u ee 


Editor zur Verfügung. 


Doch der wichtigste Grund liegt 
darın, daßdas COMMAND-Window 
keine deutschen Sonderzeichen 
annımmt! Wenn im COMMAND- 
Window z.B. 100 PRINT „AÖUß* 
eingegeben wird, 50 wird nur 
100 PRINT ”" übernommen. Im 
EDIT-Window hingegen werden die 
Umlaute und ß ohne weileres ak- 
zeptiert. 


Patrick Schmitz 


—— 


— (| 





ATARI-KURZ-TI 











Mark Vodicka „beglückte* uns mit ei- 
nem kurzen Atari-Tip, den wir an dieser 
Stelle veröffentlichen, da dieser Beitrag 
sicherlich für alle Atari-Freaks von In- 
teresse ist: Mit POKE 580, I kann mandie 
RESET-Taste derart beeinflussen, daß 
beim Einsprung in die Reset-Routine ei- 
ne Kaltstartroutine erfolgt, Mit POKE 
202, I wird beim Drücken der RESET- 
Taste das im Speicher befindliche Pro- 
gramm gelöscht, 

















er HER BER... „Alarm! 2... KRACKS. ... . „Starke Flottenbewegungen im System AGAM regi- | 
striert. Sendet bitte schnellstens Verstärkung, denn der Feind ist auf unsere Spionagetätigkeit aufmerksam 


| gewör... KRACHS.. +». 


Das war der letzte Funkspruch unseres 
Scoutschiffes „SURVIVOR*®, das in der 
Galaxis MI3 operierie, Anscheinend ha- 
ben die Agamer vor, den intergalakti- 
schen Waffenstillstand zu brechen, um 
die Versklavung der Galaxis fortzuset- 
zen. 

Nur noch TERRA ist stark genug, den 
mächtigen Feind in seine Schranken zu 
verweisen, denn die verbündeten Plane- 
ten sınd vom letzten Krieg noch zu sehr 
geschwächt, um den Agamern etwas ent- 
gegenselzen zu können. 

Wir haben jedoch auch unsere Probleme, 
denn unsere Flotte ist teilweise noch in 
der ganzen Galaxis verstreut und auch 
der klägliche Rest ist nach nicht voll ein- 
satzlähig. 

Deshalb benötigen wir genügend Zeit, 
um unsere Streitkräfte zu mobilisieren. 
Zeit, die wir nicht haben, denn der An- 
eriil der Agamer kann jeden Moment er- 


folgen, und wir würden ihm wehrlos ge- 


genüberstehen. 
Es ist daher Ihre Aufgabe, aufdem Plane- 
ten der Agamer einen Überraschungsan- 
eriff zu starten, der sie von ihrem Vorha- 
ben ablenken sollte, bis wir genügend 
schlagkräftige Einheiten zusammenge- 


zogen haben. Er 
Die Föderation 


Anleitung zu 


„EXPLORER II“: 


Es geht in dieem Spiel darum, mit Ihrem 
„schweren Kreuzer" auf dem Planeten 
der Apamer möglichst viel zu zerstören, 
den Feind zu verwirren, um ihn so von 
seinem eigentlichen Vorhaben abzu- 
lenken, 
Das dies kein leichtes Unternehmen ist 
ı werden Sie sicherlich bald bemerken 
denn Sie werden dabei nicht nur von 
planetaren ÄAbwehrforts unter schweren 





Beschuß genommen, sondern es verfolgt | 
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EXPLORER II 


Commodore en 








nee 
Agamer! 






Lay 






ACTION 


und SPANNUNG 
garantiert! 


Sie auch die gesamte agamische Luft- 
streitmacht. 


Foleende Punkte sind 


noch zu beachten: 





Auch Datasettenbesitzer können das Pro- 
gramm abtippen, nur müssen dann folgen- 
de Anderungen vorgenommen werden, 
um eine lauflähige Version von EXPLO- 
RER Il zu erhalten: 


a) Entfernen der Zeilen 7903290 


b) Ändern der Zeile 210 in: 
210 FORT = IT05:FOR $ = 
1703:SCS(LS)="NOBODY - 
000500*: NEXTS.T 


Bei der Kassettenversion istes dann nicht 
mehr möglich, die SCORE-Liste abzu- 
speichern. 


Starten Sie mit Explorer I N u zu einem Über- 
um 











= gegen die 
a 






WICHTIG! Haben Sie noch keine SCO- 
RE-Liste auf Diskette stehen, so muß das 
Programm mit RUN3290 gestartet wer- 
den (nur bei der Diskettenversion!). 


Steuerung des Spiels: 


EXPLORER Il ist ein rein Joystick-ge- 
steuertes Spiel: die Eintragungen in die 
SCORE-Liste, die Einstellung der Spiel- 
stufe ,... werden mit dem Joystick in Port 
Il vorgenommen. 


Steuerung des Raumschiffes: 


Joystick in den 4 Hauptrichtungen 
Fire... MASCHINENGEWEHR 

Fire + Joystick down .. . BOMBENAB- 
WURF 
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=EXKFLDRER®e 


ic) BY 


WINKLER GABRIEL 


REM 

POKESS. 125: CLR: PRINT" {CLEAR POKESS 
Ze 9: POKES3Z01,9:DIMAi14,5):605UBE1B 
za SP#t1)="KADETT":SP#FtZI="DFFIZIER": SP 
#13) ="KOMMANDANT" 

>10 DPEN?2,8,2, "SCORE ,S5,R":FORT=-1T035: FORS 
=1T03: INFPUT#2,5CH 17,5) :NEITS,TıCLOSEZ 
228 PRINT" (CLEAR BUITEI"TAR IS" 
— 45 P en DU eh 
230 PRINTTABESI= | ll ml Nikanirrepag 
Eee" 

248 PRINTTABISHFITLSPAGEZIT I FIN EMI 
FTSPAGEZH III I FI FRA I 1" 

258 FRINTTAB(SI" | — u rl -— | ITSWIFTSRAC 
EZH I III IKSNLETSPE A I I ERRAGEI 9" 

248 PRINTTABISI"I m LIEBPAGEZD | I CEHL 
ETZPACET III CSHIFTSPAGEN = I I TSPACE} 


u 

270 A TE En PACEZ3 

HE: Hl ll LIEBER | 1" 

a] Tea) III I I I KEPAGEZ I I 

a Ra u Da EI I En DI 5 ED 

23a FRINTTABISI" —— 4 WISPACEZ) — 

I PRINTTAB 17) "TDOHH —— 

za93 PRINTTABELLTI"“. = - ": FORT=BTOF: PRINT 

TABi1BH* I | II FLNEXTEFRINTTABLIL FI" AH" 

sı@ PRINTTABIL7TI" ——":PFRINTTABIFI TE 
DONMZIICHTESPACEIBYLSPACEIWINKLER IE 

PAGEIGABRIEL“ 

320 PRINT"tDOHNZI"TABL4 " CORANGE} "FEUER 

KNOPF "ıWAITSA328,15, 1271 PRINT" ICLEAR}": 

FORT=ATOS@G: NEXT 

3308 FRINT"CGLEAR DOWN? YELLOW)SPFIELSTUFE 

EuTARLISS "AN CEBACEI ERS LI) SPRINT" 


Fr 








348 PRINTTABLISI "BI LSPACE r"SP# (ZI "CDOHMZ 
LEFTILICHLSPACE N SFFI3I A132 

338 LFPEEK (56320) =111 THENSSBO 

378 en Ha DREERUSLRSRTTHERTE Sr 

ba he De Pr 

94 FORT=8T0I8: JeJANDPEEK 1563281 ıNEIT: ST 

855452: 5P= (A-1242) /BB: IFJ=127THENSEN 

398 IFJ=111THEM41B 

au Asa+ad- (24BANDA>1402) : GOTO EB 

410 FRINT"ICELEAR ARI":FORT=1TO1 3: POKEALT ,#) 
+32288,,AiT,5P}: NEXT 

420 FOKESI26S, PEEH (33245) AND23? 

430 FORT=-BTON1BBN: NEXT: SYSSZSHA:PRINT"ÄCL 

EAR YELLOH DOHHLZY"TABLLS) "GAHMELSPAGEIDOV 

ER!” 

448 POKESZ280 ‚7: POKES32B1 ,9: FOKES3243,PE 
Ek (53245) DRLö: FORT=BTOSBU0: NEXT 

sd Ada": FORT=9703: AfsAs+CcHRt (PEEK (3128 
B+TJ}ıNEXT:AR=&4 

+58 FORT=STOISTER-1: R=R- t1ANDWAL{RIGHT#S | 
SCHIT,SPI HB) IS WAL IAFITENERT 

“70 IFR=ATHENAFO 

488 FORT=STOR+ISTEP-1:15C$ 1 1,5PI SCH Ti, 

SP} =NEXT 

478. PRINT"ICLEAR DOWNI LIG.RED -TABtili)" 

EXSPACEI RISPACEIPLSPACEILESPACEIDISPACE) 
RLGPAGEYELSPACEIRISPACEITITDONNZ YELLOW) 


5a PRINTTARBI(B}" _ 
„"sPRINTTABIBH" | "TABLSZIF I" 

sid FRINTTAB BI "I KSPACEIALSPAGEIBLSPAGE} 
CHSPACEIDTSPAGEIELSPACEIF TSRACEIGTSPAGE) 
HISPAGEI TISPACEIJTEPACEIKLSPACE} | ": PRINT 
TABIBI" IHTABEFSZI" I" 

“>08 PRINTTAB(BI"ITSPAGEILTSPACEIMISPACE} 
NESPACE)OTSBACEIPCEPACEIOCHPAGEIR SPACE) 
S{SPACEITISPACEIULSPACEYVISPACE) | "SPRINT 
TAB{BI "I "TABLS2I" TI" 

50 PRINTTABIBI" I CSPACEIWIZPACEIKTSRAGE} 
VISPACEITLSPAGEN „TSPACE 





I. CEPAGEISPACELSRA 
5} | "I PRINTTABLBN" | "TABL3ZI" |" 

548 FRINTTABIBI“ 

-LDOHNE+" 

458 PRINTTARt 28-LEN ISPFISPI HI /ZDISPFISPI 
”ı LSPAGEHLISPAGEN. EEE I[SPACEY)" Aal 3341 
Bed:C=i704 

Eu Cel+l: IFPEEK ICH“ >44 THENSER 

“78 POKE2S1, {A+B} AND2SS: POKE2SZ, tA+B) /25 
4: 5Y8 35457: P=PE£EK (353298) ı IFF=11 1 THENS3O 

u IEEREK (Aa Zi EEE 


MLFFEHR a 


! 
ar Pt Peer En a "= du, a 
% u [‘ 
a5, N N Zn Mi [ _ eu > 
de Feten Dee IE Sr u m = m = z— 
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Sa IFP=1L2STHENGZO <ımar ı 8 

sad IFP£>1IFTHENSTE <B7> | z 
si0 BeB+2+ (SBAND (B=ZBORB= 1897 = 1174ANDB> 
17@)1G0T0578 ar | 

429 B=B-7- (SBAND (B=BBORB= 158) I) +1 7AANDE= 
8):6070378 <91> 

SID FrPEEk tAtB): iIFB=1FETHENP=32 <i113r, — 

548 POKREC+54272, 18: FOKEC ,PANDIL27:C=C+Hlt 1 un 
FPEEK (CI=35THENFORT=BTOZEB: NEXT:BOTOSFE <21> 

658 As Dre“ FORT-C-5TOCı PePEeEK (Tier 

tG4ANDP£271=- IANDP=32) : BF=BF+CHRF LA) <210> + 
sh NEXT:SCHR,SPI=Bf+"- SPACE)" +AF:PRIN “r. 
Lie CDOWNTI "TAB LAN" CORANGE) FEUERKNOPF "": = 
WAITSAI20,16,127 2323 | Fer 
578 PRINT"CLEAR HHITEI"TABLP) "EXPLORERT ee 
SPAGCEITICSPÄCEIFLSPACEHHI-SCORESCOOHHZI" <135> a 
680 PRINTTABLLAB-LEN (SP#LSPI) 1/2 SP IS PZ 
ıPRINTTAB{1O *CDOHH DBRANGEF— eu 2 
——' “111> Fi* 
sa FORT-ELTOSTPRINT"CYELLOWI": IFR=TTHENP Sa 
RINT"CHHITE UPI" 2a: m BD 
aa FRINTTABILGIT"CLEFTIICSPACEI"SCHLT,S = 55 
P)I:NEXT <97> u 
TiB PRINTTABLLOITCODHH DRANEEF— vo 
—110.RE0 DOKN) Tı IFR=ATHENT3G 593 = Be 
728 FRINTTABLLTI "BRAVO!":GOTO748 (2223 | Den} 
738 FRINTTABLLSI "PUNKTE: TSPACEI"AF ur N K 
740 PRINTTAR (7) " CDOHMZINDCHSPAGEIEINGER a 5 
ALEISPIEL: LSPACEZIJATSPAGEI FEEPACEINEIN" u 
ı4=1920 207 > | Ku 
75@ POKEZS1,AAND2SS: POKEZS2,,A/Z561 P=PEEK I 
(54320) :5Y535457 > ı ® u 
TER IFP=1270RPEEK (A) >L27THENFORT=BTOFF:N Ra 
EXT:BOTO7TSE <12> = 
770 IFPC>LIITHENA=tLPZBANDA=IFISIHLLFESA wo 
NDA=1929) 1 FORT=BTOFFE NEXT: GOTO7IO <2380 > ne 
TBB P=PEEK (AIANDI2T: IFP=1OTHENSSB <0> Kan 
798 OPENZ 8,2, "8: SCORE ,5,W*: FORT=1T0S:ı FO - 
RS=1TOS:PRINTAZ,SCHLT,SI:NEXTS,TECLOSE2 <öl> ee 
ga SYSA4738 ee I ht 
g10 GOSUBBSB: READA,B: FORT=ATOB:READG=POK re=] 
ET,E:PRINT"CHONE DOWNIE}" Ar Be u 
B28 PRINTTABI1SIB-TI"tLEFT SWIFTSPACEI": ver 
NEXT: IFA=I22B8THENSYSS23I2 «23> a 
BI@ Zei+i: IFACHS2Z24THENGIE “> Be 
348 FORT=1T01I:ı FORS=1TD4: READALT,SIT NEXT - u 
5, TıRETUFRN <2335> Buse 
838 PRINT" CLEAR)": FORT-BTOLDBR: NEXTEPRAI Ba. 
NT"CDOWNS YELLOW}"TABLIBI "TELSPACEIKISPÄE = 
EIPLSPACEILTSPACEIOTSPÄGEIRISPACEIETSPAC Hl 
EIRLSPACEI LI“ ud DZ ve 
BaB PRINTTABLIGN CDOWNZIBITTELSPACEIETWA oo 
SCSPACEIGEDULD, ” <244> Hl 
E78 PRINTTABLLBN"CDONNIDIETSPACEIDATENIS ii 
PACE)IFUER{SPACEIDIE" LONZ+LEOTOBFE, TOO 2 | m Fa 
BB0 PRINTTABLIS) "CDONMISEPRITES":EOTORIO is @ 
BF PRINTTABtLL}"CDAMNIMASCHINENSPRACHE" Irene 
:G0TOF18 <133> | si 
FOR PRINTTABLITI"CDONNISONDERZEICHEN" 1337, © art 
#18 PRINTTABLLB} "CDONNIWERDENTSPACE}HEING ee] 
ELESEN" RETURN «94 (min 
28 Ren rt 
2358 REH “EEE akammusnscöchseHe br ar Ira 
74 REM = MÄSCHINENSPRACHE = <118> Kir 
950 REM Te EI ı era 
FaR REM “B2> = u 
978 DATAS2290,35447 <19> Bis | 
san DATASB, 31,31, 15,15, 1,3,32,31,7,14717 taz) 
-3,7:.3,31,15,15,15,1543, 7, 154312419 “97, u u 
798 DATA15,0,1,0,9,8,5,8,0,255,18,5,0,8, | Inte, 
1,16, 21,25,28,32,34,35,37,38,39,48 <B&> ET 
IODd DATAA1,42,43,44,45,46,48,128,0,0,12 ii 
9.255,2,0,9,15,2:8,7,0,747 4727374148 <i> ' 5z 
ıBiG DATA1LS@A, 152,154, 155, 159,19,3,15,18, = 
5,598,32,48,40,40,48,48,40,32,32,32,32 <B8> EB 
1029 DATA32,I2 32324321 3213213241324 3243 2 
.29,15,12,15,18,5,18,38,32,55, 14,24 2325 a 
idsa DATA4Q,136,134,134,136,136,255, 26,4 Ben) 
9,136,136,1558,136,136,1,2,4,8, 16,32 <7a> 
id42 DATAS4,129,28,31,198,19,38,54,83,87, u 
99,183, 140, 188,3,3.3,.3,.3. 3, 3.5.5 741 <13B> | Fr 
18508 DATAL,3,255,2532,47,55,233,10,14,18, I WE 
31,53,3,15, 12,0, 24,32, 25,32+37,10,8,8 Ye un 
BSR DATA2,3,1,5, 242, 173,177, 179,101,1 } 
87,191, 193, 193.0,20,40,10,59,58, 30,40 <145> 

1878 DATAZ.B.0,71,22,2246,64,2,3,19421,7, 
1,7,7,3,7,3,31,13,19,15,15,34, 7,15, 0 <20> 

ia: DATAB,34,253,1,1,8,0,0,3,0,0,255,26 
„3,8,57,45,71,45,07,128,169,51,133,1 <24> 

1BF2 DATA1L6F,8,133,88,133,708,133,75,167, 
208,133,89,169,216,133,91,169,288, 133 <1425 

iiea DATAFA,32,191,163,169,55,153,1,80,9 
5,169,127,141,13,228,162,46,109,0,208 <B> 

ı111iea DATAls7,009,283,282,15,247,1697,81, Id 

1,28,3,169,128, ‚141,21,3,169,27, 141,17 c177 
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117d DATAZBA,1AL,IO,200,169,32,141,24,20 


9,1607,148, 133, 2 {4l, sp 221, 169, aa, 14 
113B DATA136,2,32,59,229,162,30,169,14,1 
37,248,218,167,1658,157,248,292, 202,16 
1140 DATA24S, 169, 29008,133,158,142,39,189, 
»2,125,157,251,125,282,16,247,142,37 
1138 DATA1B7,114,124,157,81,200,169, 7,15 
7,81,218,2082,16,2432,152,38,139, 157, 2908 
I169 DATA2BI, 232,224 ,55,288,247,162,0,1&6 
9,32,157,120, 200, 157,40, 201,167,8,157 
ı178 DATAI29,215,157,40,217,292,208,237, 
152,9,159,3,105,215,125,157, 30,204 ,185 
118 DATAZ24,125,157,29,2085,167, 181,157, 
“2.,205,159,0,1537 29,204 ,202, 14,231,1&2 
1178 DATAS,134,195,134 253,204 ,238, 124,1 
41,.398,127,133,252,168,18,199,72,126 
1208 BATALBS,71,125,137,8,2939,135,16, 234 
+162,7,197,152,126,157,154,126, 202.16 
1218. DATA247,173,39 ,208,173,31 ,298,149,9 
„‚162,24,157,8,212,292,14,250,149,94 
1228 DATA1l41,22,212,159,,243,141,25, 212,1 
5497,63,141,24,.212,230, 21, 288,32, 157,132 
1258 DATASZ,16,1394,32, 172,120, 198,143, 28 
9,249,169,144,133,143,32,208,131,32 
12498 DATA214,138,32,077,134,765,52,129,173 
‚25,288.141,25,.289,173,18,208,1&72,12 
1250. DATAL42, 34, 288,142, 2,142, 35,298, 1652 
„14,1508,159,2981,77,248,53,152,0,142 
1260 DATAF4, 2008,232,142, 35,208, 152,2,1&8 
„77,201 ,209,248,33,156,2,178,1975,288 
1273 DATAIB, 159, 2,133, 196,239,27,127,282 
.=24,.144,175,54,239,195,162,151,288,5 
1280 DATALS2,22,2008,134,2,160, 209, ,200,8, 
169,.144,141,22,208,142,33, 209,140, 18 
1274 IMTAZUO, 75, 129,234 204 ,240,174,16,4 
4,167,31,141,240,125,173,249,203, 201 
1388 DATASS,249,32,173,18,289,41,2,248,1 
2,175,2, 208,281 ,808,194,5,169,233,32 
1310 DATA2S,133,239,2,285,758,8,173,15,2 
Be,7,2,141,15,208,175,27,127,240, 31 
1528 DATA284,27,127,168,5,152,18,1780,185 
ı=50,203,281,31,248,13,222,4,200, 208 
1350 DATAS,185,172,1268,73,253,32,25,133, 
134,15, 238,155, 195, 208,1,94,152,8,134 
1530 DATA1F53,199,497,218,137,48,218,1897,4 
7,202,157,48,282,232,208,241,174,2& 
1358 DATA127, 249,33,222,178,125,202,15,2 
5g,173, 178,126,200,22, 178, 189,179, 124 
1546 DATA1S7,178,125,189,189,,128&, 157, 188 
„126,232, 236 ,26,127, 144,238, 206,26 ,127 
1370 DATAlA2,288,157,140,228,158,176,2,4 
1,127,157,84,202,169,5,137, 85, 218,138, 
1389 DATAS6,233,49,170,174,233,173, 20,12 
7,205,55,162,8,2902,48, 30, 222,251,124 
1390 DATA2ZBO,248,142,17,127, 189,3, 127,45 
„21,127,9,1,141,28,127,189,11,127,45 
1488 DATA22,127,9,3,157,231,1265,174,19,1 
27,42,194, 131, 2a, 27,140, 168, 202,240 
141@ DATALIT, 160, 163, 292,24B,119, 140,145 
‚202,248,187,2082,240, 102,202,240, 117 
32,8,139,159,128,144,1358,44,158,132 
1438 DATA132,149,158,54,233,40,178,173,2 
1,127,41,7,192,132,248,1,74,24,181,148 
144B DATA157,86,282,169,11,192,144, 144,8 
‚157,15,192,1609,144,2,1659,14,157,86 
i450 DATAZ1E,192,132,144,218,174,19,127, 
52,194,131,248,14,224,7,176,10,204,,28 
146B DATAL27,288,53,152,8,142,19,127,174, 
29,127,32,194, 171 ,96,32,0,130, 158,148 
1478 DATA288,171,150,144,173,21,127, 74,1 
44,1,2080,152,170,32,194,131,184,158 
Ldcn DATAZEB, i178,169,1654,1554,158,173,23, 
127,288,1&, 150,164, 138, 5a, 233, 20,170 
1498 DnTaz24, 89,2989,35,238,23, 127,200, 28 
‚189,89, 202,41 ,254, 201 ,16,208, 19,169 
15398 DATA32,157,85,202,139,24,105,408,1780 
‚224 ,200,289,5,204,23,127,160,144.134 
1516 DATA158,72B8, 124, 189,151,32,2,150,17 
4,234,127,239,25,127,32,194,131, 240,151 
1520 DATA292,240,33,202,240,4,202,142,29 
‚127,2409,129,164,158, 138, 98, 233,48,178 
35350. DATA1B9 ,E5,282,9,1,16,131,157,04,29 
2,159,8,157,86,218, 208, 224.174, 24,127 
1548 DATA1597,39,157,178,126,153, 150,157, 
189,125,239,265,127,149,8,178, 134,141 
1539 DATAL74,21,127,232, 200.12, 204,24,12 
7,1&,248,1589,5,141,24,127,209,241,174 
1558 DATAZ4,127,189,118, 125,133, 130,138, 
74,175,1,2089,.155,141,55,233,48,170, 155° 
1578 DATAL40,137,84,202,159,08,157,85,218 
„156,16,204,94,192,164 ,249,9,174,20 
1580 DATAL27, 222, 298,2,169,144,75,2,130, 
172,0,220,173,259,,283,201 ,58,208, 185 
1579 DATA1L73,21,200,41,9,208,45,173,249, 
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125,2081,9,176,71,152,41,18,208,85,16% aa 
1689 DATA7,141,.35,131,159,1,141,52, 121,1 
73,8,288,24,105,21,1941,4,288,173,1,208 <179> 
1519 DATA141,5,288,173,21,208,9,4,141,21 
ı=09,205,28,127,15,48,169,5,141,28,127 ar 
1529 DATAL73,4,208,24,105,0,141,4,208,17 
54394131 4240,53, 286,55, 131,173, 59, 288 “126> 
1638 DATAZ4,105,7,201,188,144,2,157, 1Ba, 
141,5,288,174,52,131,224,7,.176,1,232 <1A2> 
1648 DATA142,52,131,173,299 124,200 ,56,1 
52,41,16,288,31,169,24, 141,249, 124,173 <127> 
is30 DATA21,208,41,2,280,39,1735,14,208,4 
1,253,141,16,288,1753,0, 288, 24,185, 28 <B2 > 
id60 DATAL41,2,208,173,1,208,34,233,9,14 
1,3,288,162,18,32,231,132,173, 21,208 <11> 
1578 DATA7,2,141,21,280,173, 249,124, 240, 
3,205,249,125,152,41, 10,248, 27,152,174 {2345 
1559 DATAB,225,172,1,208,74,144,398, 74,14 
1570 DATAZ24B,4,142,.0,208, 75,202, 224,35,2 
29,242,229,2453,296,140,1,288,7&,13& “147> 
ı 720 DATAL7Z,7O,240,245,200,245,170,230, 
21,127,205,22,127,202 288 ,247,170,9%& 335 
1718 DATAL73,30,280,74,176,65,173,31,288, 
74,144,62,159,55,141 ‚240 ‚285,169, 7,141 ltr 
1720 DATA37,208, 169, 249, s2,2a, 135, 142 24 
=2,145,132,32,167, 132,149,89, 133, 196 irF> 
1738 DATA142,5,160, 255,136, 200, 253,202,2 
2B,248,173,248,203,291,53,174,222, 104 “DB 
1740 DATA1L84,173,118,209,2081,49,174,3,75 
‚182,158 ‚206, 119,200,74,174, 127, #4, 144 C1AF> 
1758 DATA77,173,3,288, 281 ‚138,176,68, 162 
2 32,32,133,72, 74, 176, a, 165, 140,208 2242) 
1742 DATAZ,198,141, 198, 140,104, 14,37,201 
‚172,240, 35, 201, 177, 144,32,187,11, 141 42223 
1774 DATAAG, 209, 169,35, 141,249, 205, 167,7 
24 ,32,255,132,159,32,145,140 280,145 <195> 
ı7E9 DATA148,172,33,127,199,240,124,32,2 
4#8,133,954,15479,253,1640,249,32,29,133 <59> 
1799 MTA7S, 195,133, 74,194 ,242,173,5, 208 
,16,237,173,250,2092,2981,50,288, 230,152 “1277 
1200 DATA4,32,32,133,78,102,133,169,534,1 
41,.250,293,169,12,141,41.208, 142.16 204 > 
1818 DATAS2,143,132,96,149,8,141,4,212,1 
59,29,141,5,212,159,138,141,5,212,142 <175> 
1822 DATA ,212,187,127,141,4,212, 96,182, 
?7,173,21,208,51,178,124,240,50,1897,248 <i6h> 
1858 DATA223,281,53, 144,453, 201,55, 240,2, 
75431222, 134,125, 289,29,189,142,126 154> 
1849 DATA1LS7,154,126,1989,102,124,157,39, 
2e0,187,170,124,73,233,32,25,133,169 “2177 
ı839 DATALZB,141,43,212,130,24,185,48,157 
‚248,205,202,15,195,95,169,8,141,18 <128> 
1848 DATA212,142,15,212,159,49,141,19,21 
2,169,7,141,290,212,149,129,141,18,212 <241> 
1870 DATAYA,169,8,141,11,212,142,9, 212,1 
69,85,141,12,212,159,5,141,12,212,149 ie 
ıEB0 DATAS3,141,11,212,94,169, 251,45, 21, 
289,141,21,208,76, 159,0, 138,45, 14,208 <217> 
1878 DATA24B,1,2090,132,141,189,0,298,56, 
=33,29,133,148,1758,2,198,141,1509,3,78 “1775 
170909 DATAI41,192,148,1354,288,249,189,1,2 
2,552, a7, 155,1, “184> 
1718. DATA133,113,132,41,132,114,32,07,17 
7,139,24,101,148,133, 144, 152, 105,208 c2a1> 
1920 DATALS3,141,160,0,177,148,96,201,32 
„24@,111,201,148,144, 80,281, 169,176 <246> 
1730 DATAYG,F4,144,197,72,173,4, 208, ,56,23 
3,6,191,4,220,155, 140,299, 2,190,1#1 are) 
1740 DATAL78,148,104,74,175,28,173,3,208 
,6,235,8,141,5,288,155,140,56,233, 40 <130> 
1930 DATALS3,148,174,2,198, 141,32, 218,13 
3,162,29,177,148,281,161,174,5,32,218 <1B2> 
1976528 DATA133,162,58,159,170,145,149, 2090, 
169,171,145,140,32,240, 133, 75,127 ,132 =41> 
1978 DATAL72,32,131,32,23,133,157,B8,141, 
18,212,141,19,212,140, 15,212, 169,4, 141 <##7> 
1769 DATA2B,212,157,129,141,18,212, 98,17 
3,5,798,24,189,9,141,5,288, 169,32, 145 <153> 
17979 DATAL42,290,145,148,152,24,185, 39,1 
53,96,134,148,152,5,1978,190,48,20,254 “ala? 
ze DATAGB, 200, 187,B9, 200,201 ,50, 2008,24 
2,157,48,157,B8,200,292,15,238,48,258 <197> 
zB1B DATAPA,?7&4,51,135,173,258,125,248,5, 
206 ,250,124,289,243,169,15,174,1,208 <B8> 
zeza DMTA224,139,144,2,10,10,205,18,288, 
144 ,227,.165,2,201,150,700,2721,173,2& £129> 
2259 DATA127,248,215,142,5,202,48,211,18 
4,173,124,45,21,208,208,245,142,29,127 <a} 
Ze4a DATA1A2, 235,232, 276,25,127,249,7,18 
7,178,125,201,29,144,245,172,18, 208 ea he 
2e58 DATA138,240,179,170,202,48, 252,134, 
208 ,250,173,27,177,190,148,189, 178,126 i2> 
850 DATAIB,10,10,185,27,153,5,288,189,1 
DB,125,16&2 ‚235, 232, 36, 235,48, 175,250 ia2> 
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© ı ara DATALSB,10,10,10,24,105,148,153,7,2 
' 24,169,0,133,141,152,24,185,6,178,32 <aB> 
ZBB2 DATA43,133,15,87,74,74.8,173, 29,127 
I@; „170,190,158,183,7,288,49,175,2,233,5 <220> 
. AUTO DATA233,5,153,7,209,237,1,208,144,& 
‚ 2,133,141,239,141,105,5,208,237,0,200 <1B3> 
+ Zi DATALTS,14,73,255,158, 208,189 ,173, 1 
© ı 28.13,30,127,141,30,127,1592,133,148 “17973 
ı 2110 0ATAS4,229,181,176,4,73,253,185,1,2 
| ' 81.32. 174,24,169,#52.150,5,.157,251,283 2385 
| ‘ 212@ MTAIB9,173,1265,13,21,288,141,21,78 
“=  8,152,170,32,255,132,75,31,135, 165,140 “189 > 
; Z126 DATA1I69,8,204,229,141,176, 251, 189,1 
. . 75,124,45,30,127,0,152,157,198,125,40 <11> 
ı® ı 2140 MTAZaa,S,73,255,24,109,1,72,173,29 
| -,127,19,169,1804,121,6,208,157,203,12& 211) 
l ‚ 2150 DATA167,51,168,32,208,1879,162,8,168 
I, „4.189,173,124,45,21,2898,240,82,185 <{1LB8> 
— + 2180 DATAZS1,2835,201,53,1765,75,201,31,24 
| ı 8,77,222,7,208,1899,7,280,201,74,176 <1B&> 
| u * 2170 DATA27,186,173,126,735,295, 72,32425, 
= ı 133,184,72,45,16,208,141,15,2068,104 rar 
| , 2180 DATAs5,38,127,141,38,127,76,125,135 
|, 1237,1,200,194,4,201,165,175,25,173,18 <1B> 
{N N 2190 DATAZBB,41, le 2E0, 18,147, 53; 153, 251 
ı „293,1659,1,153,42, au8, 162,2,32,143, 132 <252> 
San DATALSZ, ıB, 17@,1564,202, 292,15, 161,9 
ig - &,165,173,126,133,140,49,30, 127,208 793 
2210 DATAT,222,5,289,249,174,2980,27,173, 
‚ 16,288,37,148,248,7,169,112,221,4,288 <«iB1> 
I. + 2220 DATALA4,159,254,5,208,288,8,173,16, 
| PN} 299,5,140,141,15,228,1897,4,208,217,283 “1972> 
" 7230 DATA1TA,288,198,72,185,149,43,38,12 
' 7,2068,0,104,56,249,198,126,78,284,135 “124> 
u , zZ240 DATAIB4,24,121,198,1274,153,205,1264, 
4 222.7,288,187,7,208,281,77,176,164,76 ie Fi 
ı 2250 DATA6A,135,172,33,127,240,75,192,%, 
Zn 249,72, 169,235 ,200,36,233,40, 175,298 <119> 
I ' 2242 DATA1F2,1408,173,1,200,55,233,564,74, 
. 74,74,55,229,1408,175,4,73,255,185,1 1b3> 
‚, 22780 DATA2B1,2,176,48,168,5,134,48,35,18 
| © , 5,50,296 ,288,248,167,7 ‚ld, zu8, 28 “853? 
1 
1 i 
ı®@; 
| Me DATA23,189,8,206,41,127,153,50, 206, 
1567 ,19,205,153,55, 286,154, 140,162 ,,5 232} 
_ ı 2290 DATAS2,255,132,166,140,96,152,4,15% 
IMs ‚0,2065,248,3,222,50,2064,202,15,243 <217> 
| 85,75, 79,134, 187,58 ,285,24,125,393, 2B& 733 
ı® . 2310 DATAG,24,185,128,133,141,157, 209,10 
| : 5,8,40,1085,08,135,132,150,8,96,206,248 #172> 
ı 2329 DATAL25,16,51,159,5,141,248,126,162 j 
2 ‚4,202,49,15,32,72,1364,177,141,281,172 1B6> 
® ı 2338 DATAZOG,244,169,32,145,191,208,238, 
32,46,156,1&2 ‚4,202,48,18, 187, sa, Pr 74> 
 2a0 DATA248,248,32,72,136, 177, 141,40,24 
©, 1,149,172,145,141,200,239,206,32,127 <199> 
| . 2380 DaTa248,1,96,172,33,127,190,209,126 
| „142,32,127,198,231,15,73,152,9,134 ar 
I 73548 DATA231,165,252,224,8,175,63, 165,25 
|  ,  548,99,169,3,45,18,209,288,52,230,232 “114> 
| ı 2370 DATALFA,2533,192,4,144 ,9,173,21,127, | 
u 1 74,176,3,169,167,44,169,39,157,0, 206 63} 
= ı 2308 DATAL72,18,2069,159,48,74,185,39,175 
| .247,156,209,248,157,18,205,160,173 <13> 
' 23908 DATA173,21,127,74,144, 2,200, 209,152 | 
& , „1597,498,204,162,0,240,77,186, 10,206 2553 
n 2480 DATALTE,240,79,32,59,135,177,141,48 
' „15, 187,0,206,41,127,201,37,248,7,18%7 c1B5> 
@ | 2410 DATA1,157,10,206,209,67,189,32,145, 
“14 251 172,33,127,192,4, 176 793 
2420 DATASs1,189,0,284,48,29,217,215,.126, 
ı 176,37,1549,7,45, 10,208 ,208,30,187,8 995 
© , 2438 DATAZBA,7,128,157,0,206,272,20,206, 
| \ 203,17,183,224,1264, 137, 20,204, 199,18 <148> 
' 2440 DATA206,240,194,368,233,48,157,10,29 
& , 6,199,10,206,32.220,135,232,228,252 “bb? 
| "N za DATA144,155,75,153,137,222, 30,286, 2 
| : 80,14,185 "216,126, 157,30, 27865,189,0,206 <222> 
I ' 2468 DATA73,128,197, 9,204,189,10,284,222 
IE 1 ‚20,204,208,26,72,105,224,126, 157,20 <i18> 
' Zara DATAzıs, 189, 8,206,16,8,104,56,233,4 
| B,248,214, 228, 5,104,24,185,430,176, ans 035> 
ID , zamm DATA76,58,137,162,8,248,18,189,@,28 
| 6,8,41,127,56,233,1,490,16,2,9,128,197 <151> 
' 240 DATAB,206,232,220,252,144,234,165,2 
al, 32.249,05, 173,0, 284£,41,127,208,78,142 “245> 


2528 DATAG,1897,1,2905,157,0,2985,189,11,28 
a BEE Zee, a4 ‚286,157, 20, Sb, 187 124) 





Juni’ Juli ‘86 


2S1@ DATAS1,206,157,30, 206,232, 228, 252,1 
44,277 ,178, 252, 788,43,165,233,14,39 
2520 DATA173,10,208,41,7,191,33,127,168, 
173,21 ,127,41,63,133,233,162,9, 189,216 
23398 DATA124,157,30,2064,183,224,125,157, 
20,204,202,16,241,173, 10,208, 141,32 0 
2520 DATA127,152,0.240,81,172,33,127, 208 
‚5,199,40,704,708,76,1B5, 332, 126, 172 
ss DATAS, 200,15, 189 ,40,206,24,105,2,20 
1.189, 206,2,169,101,197,40,206,192,4 
2568 DATAZGB,10,109,0,206,49,3, 169, 189,4 
4,159, 198,133, 14a, 1e0, i0,284,1354, 248 
2570 DATA26,52,68,136,155,148,145,141,20 
@,24,185,1,145,141,172,33,127,192,4 
280 DATAZEG,&,1697,32,160,1,143,141,232, 
228,252,144,171,96,162, 46,189, 80,204 
2579 DATA1IS7,B,288,207,15,247,1697,151,14 
1,0,221,169,4,141,136,2,96, 148,8, 177 
Z4B0 DATAZS1,201,32,2408,7,73,129,145,251 


‚-20,154,243,95 

re REM 
2428 REM gen aseneneeme 
2458 REM z SONDERZEICHEN = 
Faad REM PT PTTeTTTTı TH] 
2a HEM 


2550 DATASB1T7&E,58727 

2470 DATA223 245, 120,1498,32,32,252,123,1 
09,223,2,18,48,22,251,127,191,223,2 

7688 DATAIB,AG,150,129,255,127,248,128,1 
>9.,32,40,248,.223,.0,192, 2,40, 223.243 

2490 DATA239 ,63,49,0,67,252,187,294,31,1 
26,0,0,02,0,128,241,251,124,0,8,0,0,52 
2700 DATA237,52,237,4,219,191,255,94,63, 
pus, 223.0,0,192,124,249,223,143,652,8 
2710 DATAG,D,49,252,236,53,755,8,0,57,8, 
119,229 ,247,191,8,3,12,52,15,235,211 
2728 DATA191,0,0,192,40,127,253, 252,221, 
Q,12,11,48,2535,207,239,247,0,1,0,49 
2739 DATAL24,255,239, 129,239 254 255,255 
255,755 255, 255,251 239,238 235,255 
5748 DATA233,235,255,8,154,170,170,237,2 
55,251,255, 2,166, 1A6, 169,158, 239 „235 


2739 DATA124,3,15,3,15,5,19,3,15,192,248 
„192,248, 192,248, 192, a0, 3,15, 7,63,29 
2760 DATAF3 255,215, 192,248, 208,232, 116, 
117,233,213,213, 233,87 ,23,83,7,7,195 

2778 DATAZ15,235,213, 212,232, 200,200 ,248 
„13,31,93,235,3,15,3,15, 112, 244,117 

27ER DATAZSS,172,248,172,248,15,3,15, 311 
5.,29.95,253,240,172,248,192,248,11& 

2790 DATA243,127,2533,97,87,2553,87,07,2535 
255.,255,213.213,253,215,213, 253,255 
ZBe2. DATA2SS 233, ,233,.255, 255,255, 259,203 
‚178,150,170,2553,253,239,235,233,178 
2918 DATALSB,170, 235,233 ,2353,273,233, 187 
253.,239,235,254 ,127, 255,235, 5454,11 

2828 DATA15,31,53,247,2533,3,3,3,13, 15,31 
139, 255192240 236222 27 225 

Fass DATA2553,172, 192, 224,240 ,240,248,,228 
2, 252,2, 10 2, ze 
240 DATAZ21 ‚255,255 ,2535,233,231,184,1805 
‚64,160, 148,165,229,245,191,247,2,6 

2858 DATA22,154,91,111, 255, 222,0,0,0,158 
‚149.9,0,8,2,5,24,1805,155,798,22,9, 80 

7859 DATAYA,140,153,99,188,144,0,08,1,6,2 
z,105,182,24,5,0,44,144,148,108,100 

2370 DATAL44,54,8,0,15,55,219,255,31,8,1 
4.252,235,170,255,179,235,59,8,12,57 
ZB88 DATA237,237,57,12,0,50,253, 797,244 ,2 
44.77,255,50,0,8,2,253,243,2,0,8,8,D 
2890 DATA128,95,127,128,0,8,5,21,95,124, 
242,214,53,15,.00, 'B4,245, &1, 143,151, ‚42 
zra0 DATAZ4B, 15,53,240,174, 194 ,248,53,15 
‚249,252,15,131,131, 15,252, 248, 15,53 
2910 DATA214,242, 124,99, 21,5, 240,92,151, 
143,51,244,84,90,152,1658,170,170,166 
29728 DATA3B,42,0,0,42,38,165,178,170,168 
‚152,8,0,57,239,39,0,0,08,12,565,235,170 
2938 DATA233,55,12,8,3,13,31, 93,255 ,225, 
53,.12,1972,.112,244,.117 245,247 252,40 
2940 DATA12,48,243,238,238,243,48,12,38, 


12,207,187,187,287, 12,48 
2730 REM 
>G4109 REM dasznanune 
207 REM = SPRITES « 
Tyan EEH SBEREELER ELBE Et 
2490 RER 


sea DATAS2224,532738 


= 

u 

so 8 “ u 

PER ® 
. 

= 


Homscomputer 27 


sa1@ DATAR,2,0,0,0,0,0,0,0,0,0,0,2,92,0, 
7,82,2,18,128,2,38,2,128,149, 138,180 
sB20 DATALB2,171,232,234,170,258, 182,171 
‚232,149,138,16@,38,2,128,10,128,0,9 
3830 DATAGO,B,2,92,8,0,0,0,0,0,0.0.0,0,0 


ı9,9,2,0,8, 2, 1,8 ‚d,0,0,0,0.0,D,0,0.o 
S@40 DATAB,2,0,0,0,0,0,0,0,0.0,0.0.0,0,0 
‚2,2,2,2,2,2,02,8,0,02,08,9,8,2,09,0 ‚2,8 
>23 DATAB,0,158,0,0,199,0,8,158,0,8,0,8 
‚2,0,2,0,2,2,2,0,0,0,2,0,.02,0,0,0,0,0 
ses DATA9,9,8,0,2,0,2,2,02,9,2,2,2,2,0,0 
‚2,2,2,0,0,0,2,0,2,2,2,2,2,0,0,0,0,8 
3870 DATAN, 190,0.0,150.0,0. 170.0.0.0,0,0 
‚2,8,09,2,0,0,9,0,0,89,29,0,0,09,09,8,08,0 
SaB0 DATA,0,0,0,0,48,0,0,238,0,3,107,B, 
+,187,8,8,255,0,08,48,09,0,08,0,2,0,0,0 
38392 DATAB,B,D,0,2,0.0,0,0,0,0,0,0,0,0,0 
‚2,0,2,2,2,0,2,0,2,2,2,2,0,0,20,0,0,0 
zı29 DATAB,2,0,48,0,0,49,8,2,48,0,3,48,0 
‚3,51,8,3,23,0,2,3.2,0,3,0.0,2,02,0,0 
“112 DATA@B,0,D,0,0,8,8,0,0,0,0,8,0,8,8,8 
sei, a, 2, AB „48,12, 25,248, 43,237 


3120 DATAI2,S1,174,192,14,186.204,19, 186 
100,452, 184,1707,42,234,171,38,1708, 172 
1529 DATAZS2,17B,1988,1897,179,172, 42,178, 
235,14,170,172,283,187,189,255, 174,297 


149 DATAG2.170,1754,19,238,248,48, 251,74 





0,31,204,509,3,13,09,233,509,240,50,4J 

3159 DATAZS1,243,3,171,140,206,178,2572,72 
97,186, 248,57, 191,168,58,171,176,14 

3169 DATA19@,172,52,175, 191,230, 235,179, 
203,171,163,539,234 180,250, 238, 255,234 
s1709 DATA1LFQ,1797,597,171,150,19,254,172,1 
4,105,2365,14,234 ,232,63,58, 108, 508,43 
ZIEB DATAS1,192,743,195,255,2,8,0,8,0,0, 
0,0,0,0.0,0.0,0.0,0.0,0.0,0.0.0.0.0 

zı0 DATAB,8,0,2,0,98,32,0,0,0.0,3,80,32,B 
„1208,32,8,0,8,2,2,8,2,0,2,0,8,132,0 
3220 DATAZ,0,0,120,0,8,2,.32,0,0,12%7 


3228 RE NEEHESEHEEUEE 
32 REM a LEVEL 1-3: 
3745 REN Eassezszzmec== 
Jean REM 


3748 DATAL4F,144, 173,346, 75,80,64,0, 124, 
15.24 ,265,128, 165, 253,.27, 37,32, 27 ,2229 
s27@ DATAL2T, 136, 182, 133, 127, 136, 132,134 
„127,134,132,135,127,138,152,135,127 
3289 DATALSS,1S2,137,7,7,3,2544.7,8,9,27 
27,34,353,.55, 121 
3298 DPENZ2,B,2, "SCORE ,5,K": FORT=1 1013: PR 
INT#Z „ "NOBOBDYISPACE IS ÄS PAGE OBER" ENERT 
ı LLOSE?: RUN 







“2133 
<132> 
133% 
132, 


eis ı Won 


2533 ı | 
1973 | 
a7 | Fer 
ar! 
ir, 
> ij 
{77 1 dt 
> '%@ m 
zn ı 58, 
m ı Wu 


1b | — Ei 


ler 
Cn62 
64 


Die Homecomputer-Redaktion verzichtet in diesem Fall auf eine Nennung des Originalprogramm- 
tıtels, da uns dieser absolut ken erschien! 


Pem Autor dieses Programmes ist es.ge- | 
lungen. das Spiel wirklich abwechslungs= | 
reich und spannend, zu gestalten, Der 
Wer 
schwierig und fordert schon ein Döchst- 
muß an Geschicklichkeit. Durch die vie- | ten „Labyrinth-Üser® 
len verschiedenen Sereens ist für ausrei- | 


rer | l 
chend Abwechslung gesorglundesdürlie| 


„Jovstickkünstler” 
SHehfens Schuheriskesten heieifenldies 
ses Proerimm:ın kurzer Zeit zu durch- 
durch das Labvrinih ist äußerst | spielen. Eine wenaue Spielanweisung er- 
lolet zu Beginn.des Spieles.aberdieweub- 


uch dem pr 


was im einzelnen zu lun Ist. 


Finpen Sıe das Programm ein >und Sic 
können sıch selbst mit diesem doch sehr 
eirenwillieen Programmnamen ausein- 
ıntlersetzen. Wirhäben uns beider Ver- 
ölfentlichung dieses Beitrages von Jder 
wissen sicherlich: | guten Grulik, dem 
Sound und nicht Zulei#1vonderüberzeu- 


hervorragende N 


senden Spielqualität leiten lassen, 


Finden Sie eine wirksame Formel gegen eine Krankheit, die das Fortbestehen der Menschheit gefähr- 
det. Auf dem langen Weg zum wissenschaftlichen Erfolg haben Sie zahlreiche Räume, in denen un- 


zahlige Gefahren auf Ste lauern, zu durchqueren. 


[e 


Das Listing 


REM ##a##+ PROJEKT AIDS - LOADER win... 
I PRINT" 


FELLOM BIGNTZIPARAVTSIONG 


SPACEICOMFANVLSPACEIFROUDLYCSPACEIPRESEN 
T5:":AF=CHr# 34) 


2 PRINTTABLLII "COREENIULRICHTSPACEFMUIEHL 
tie 
3 PRINTTABLZI"CDOMN BEDIPLSPACEZIRLESPACE 
En 0 TEPAGE2I J TERAEERIE FSPACEZIKTSRACERN TE 
SPACE): (SPACETIATSPACE) . (EPACEITCHRACE). 
{SBACEIDESEAGE) [SPACEISTSPÄCH . 
4 PRINT" CMMITEILOADING. ..tBLACK DOWN2F": 
POKE 53281 ,Ö:POKE 33280,0 
PRINT"LOAD"AF"VEL"AR" „B" 
PRINT" CDOENSHRL" 
PRINT" (DONNZ)LOAD"AF"DATASET" AR" ‚B" 
PRINT" DONNAIRUN® 
PRINT" (UP4TI"POKEASL, 13: POKEAS2, 13: PO 
KEASTS 13:1 POKEAS4 , 13 
109 POKE 198,4 


Teil ZWEI 


0 REH VEKTOREN AENDERN + BASIC-START 
i FOREIS385,0: POKE 15385 „Or POKE43 2:1 POKE 
44.541 NEW 


28 HOMECOoMPUTER 





Das Listing © Das Listing 


Teil DREI 


a REM 


1 REM"#tSPACEI SI 7 PA I HAEPÄCE EI rn 

SPACE} 7m SPACEH I" 

2 REM"#{CHPACEIFROJEKTTSPACE} TS PAR Bin 

SPATE2) |LSPACER) I CSPACEI I TSPACESI N TEPA 
r# 

3 REMeTSPACE TI — PAGE) 

= 


= HEN" #ener insert 
& REM"=WRITTEN{SFACEIBY:KSPAGEHULRICHTSP 
ACEIMUEHLISPACET}® 

7 REM"sCOPYRIGHT: (SPAGEIPARAVTISTONGSPAGE 
IcDHPANYIESPACEI}e 

5 REM" «On. BEUERMANNSTRA. 23, 344 [SPACE IESCH 
WEGE» 
A a zen 
ı6 Sl=54272:52=51+7ı53=252#7 

zo FOR k=0 TO 4 

30 SI (K)=51+K: 52 (K)=G2 HK 53 He 

#0 NEXT X 

50 H=5328lıR=H-1ıL5-51 +24 FOR IE TI 
+4: POKE %,0r NEXT & 

&0 FOKE R,O:FOKE H,O:PRINT*CCLEARF“ 

70 FOR k=0 TO 1S:POKE LS,Xs FOR WTe0 TO 3 
O:ıMEXT WTINEXT X 

a0 FÜKE 5115} ,B2ıPOKE 52:5) ,‚BZıPOkKE 8313 





Junt/duli '86 








-—— 








e 


= 


En 


“ee: e. 02 85 ®@ 


oe oa 8 oa 8 BB BB 82 2 ® 


® 


————— 0 ee 





1 BZ:LPOKE g1i4) ‚200: POKE 5214) ,200 

90 FOKE 5316), 200: POKE E1lt1),SıPOKkE 5110 
} ‚sei POKE 8211) „ArFükE 5210) ,970 

100 POKE 63411} ,5: POKE 5310) „123 

i1O POKE 5114), HıFüöR WT=6 TO 500: NET W 
T 

120 POKE 5714) ,33:F0OR WT=0 TO SO0:ı NEXT 


= 
130 POKE 5314) „S3:F0OR WT=0 TO SO0: NEXT W 

T 

i4ä6 FOR WH=0 TO 10 

150 PRINT"tHE YELLON RIGHNTITIPLEASETSPAG 

E}HSTANDBY. »»" 

140 FOR WTeö TO i00: NEXT HT 

170 PRINT"CUR AUSON YELLON RIGHTLEDPLERS 

EtSPACEISTANDBY. „ut 

ieö FOR WT=0 TO 100: NEXT raneNT Wi 

190 PRINT"ICLEAR}” 

200 FOR X=i# TO 6 STEP -1:ıPOKE L38,%: FÜR 
WTsö TO S0:NEXT WTIIıNEXT X 

203 POKE 81 (4) ,O1POKE 8244) „Os POKE SSH) 
14) 

206 FÜR %=49152 TO 47334: READb DT:FOKE $&, 

DT18=5+0TıPOkE R,DTıkHEXT X 

>10 FOR %=12268 TO 14333: READ DTIFOKE X, 

DT:POKE R,DTrS=5+DTıNEXT X 

215 FOR X=49408 TO 49435:READ DTIPOKE X, 

0Tı5=9+0T: POKkE R,DTıNEXT & 

>15 FOR %=49554 TO 49707: READ DIT: POKE X, 

DT:525+DT:POKE R,BT:ıNEXT & 

=17 FOR %=47720 TOD 4797 1:READ DTıPOKE X, 

DT: 8=5+0T:POKE R,DTrNEXT & 

=1i8 FOR X=-832 TO 857: READ DT: 5=-6+DTıPOKE 
K,DT:NEXT K 

220 IF 82>3004&4 THEN PRINT"CTELLON RVSO 

KM RIENTIFIDATALSPACEIERROR SPACE! !LEFSO 

ER DOWNE}"ıSTOR 

2730 POKE 33272,PEEK (53272) AND 241 OR ı2 

240 FRINT"CGREEN CLEAR BVSON RIGHTZ SPAC 

E BFSOFFIS SPACE AVSOH SPACE AFSGEF>- SE 

Mue IIEMEE nn sAAcEz EIEHT SPACE 8 

RIGHT SRACEFI" 


ACE RIGHTI SPACE RWSOFF SPACERI:" 

240 PRINT*YCHFSON BIGHTE SPACE EFSOFF SPA 
CEP AFSON SPACE AFSOFFI- CAFSOFF BIGHTI = 
(RIGHT) RIGHT AVSON SPACEZ EIONT BEEOE 

Fr RVSOH SPACE RIGHTZ SPACEI" 

270 PRINT:PRINT 

290. PRINT" CrELLOH}" 

290 PRINT"{RIGHT2 SPAGEITCRFSON SPACES & 
FSOFEEI-TEPAGES AVSOH SPAGER AFSOFF SPACE 

# BERN BERGEF BERULENEN TEASER 


TH PAUNT» CRLONT2) | (QYS2M | (RLONTZ>-<gPA 
Ä | EPSON SPACER AFSOFF 5 





AGEZ AFSOFF 
TIRFSOFF YICSPACEI BYSOH 





320 PRINT" (RIGHTZI-ERVSON SPACES, RYSBEF) 
sLSPAGES AYSON SPACEZ RVSOFF SPACE4 AFS0 
H SBACEZ RIGHTFITCAFSOFFI OCSPACES) “CANEO 


H SPACE# BFSDEFI-" 
350 PRINT" CEIENTEN URESONI TREE 


ACEZ RVSOFF SPACE4 

IAFSOFEIRLSPACES AFSON 
340 PRINT" CRIGHT) | CAVSOW) | CRVSGFF SPACE4 
„ESUNI | CGPAGE EVSDERI | CERACES AFSON SPA 
SPAGE4 BVSON SEACEE RIEHTZIMH 


vaoH SPACE? AVSOFF SPACE) I. (SPACE Evan" 

SPACEE ALSHTIK »TEBACE BESBEEIPINSEEBEEN 

AVSOHIF SPACE EFSOFF SPACE |» 

340 PRINT" CRIEHTI-TEFSONI- LRVSOFE SBACES 
RYSONI#LSPÄACE AVSOEFIWESPACE) “SPACE R 
VSON SPAGER EFSGOFF SPACE) = ISPACE BFSON 
SPACES EWSOFF)I% »USBACEI - TERACEI ERFZON 

SPAGES BESDFFI- SPACE) =" 

370 PRINT" {DOWNZ CYAN BIGENTS}ISDMEWHERE ,T 

HEREISPACE HHITEHISCEFAN SPAGEIATSPACEIF 

ORFLICA., +. CDONN LEFTIö EHITEIY—" 

380 PRINT"{PURPLE DOWN RISHTZIKWRITTENTZE 
AGEIFROMCSPACE)I 20. 12. 1IBSTSPACEITOLEPACE 
02.02.1784" 

370 PRINT"(DOMN LIG.BLUE RIGHTIZIBTISPAC 
E}ULRICHTSPACE)IMEHL_“ 


400 PRINT" LELLON Di Bann RLONT4>_ (gran)? 


ze = ur. w 
Gin a De Fi er 


Junit'suli 'E6 


m nn re 


“145> 


57 > 


“113> 
“231? 
+88} 


“167> 


ar 


73 


<«1009> 


<BE} 


rt 





33 ,B6XSPACEIBYTSPACEIPARAVESIONESPAGEICH 

HPAMNY'" 

410 POKE L8,15:POKE 51(5),40:POKE 5116), 
FT:FÜKE 5215) ,dıPOKE 5216),80 

420 POKE 53515) „S:POKE.S3i6) ,‚Oı POKE 522) 
„SZiırFükE B2137,,1:POKE 5512),0 

430 POKE 5313) ,0:ıF0n X=47461 TO 49407: FO 
KE £,0:NEXT Kı5YG 832 

440 FOR X=2048 TO 5013: READ DT:POKEX,DT: 
GeS+DTıREXT X 

441 FOR Ke4000 TO A012: READ DT:POKE %,DT 
ı6=5+DT:NEXT X 

442 FOR X=15 TO 0 STEF -1:PüKE LS5,X:ıFüR 
WT=0 TO Z0ı1NEAT WI:NEXT XıSYE 843 

443 FOR %=49408 TO 49439: READ DT:FÜKE %, 
DT:5=6+DTı NEXT 

444 FOR X=495444 TO 4F703: REAÄD DT: 5#S5#+DTi 

FOKkE %,DT:NEXT X 

445 FOR Ke49970 TO 49959: READ DT:S=H#+D0Ti 

PÜKE %,DTI:NEXT X 

445 FOR Z=49332 TO 4935I: READ DTI:POKE &, 
DTıE=S+DT:ıNEXIT X 

447 FOR %=50006 TO Si82:READ DT:POKE %,DT 
ı5=5+DTıNEIT & 

450 IF 8<>»384329 THEN PRINT" | 
H BFSOH N DONNZ BLGHELIDDATACSPAGEIERRORCE 
PACE} ' 'KDONNE AFSOFFI"sET 

440 FRINT"T ÜREEN BISNTÖALLetBRÄDE 
IDATENTSPAGCEIBINDLSPAGEIEINGELESEN,. „.“ 
470 PRINT"CRLIGHT DOWN2 CYAN} "SPACE ' „UMS 

PACEIDEN{SPACEISPIELTEILISPAGEIZUTSPACEI 

LADEN..." 

480 GET ArzIF AscH" SPACE)" THEN 480 

50 POKE 5114) O0: POKE 5214) „GO: PÜKE 5314) 


„o 
510 SYE 45: Afr=CHRE (34) 
520 PRINT"{CLEAR WHITEILOADING. . . DENN} 
530 PRINT" CDONNILDAD"AR"AIDS-MAIN"AF" „B" 
540 PRINT"CDOHN#IRUNGGPSI"LPOKE 631,13:P 
OKE 632,13: POKE 198,2 
32000 DATAL?3,255,172,209,532, 173, 254,192 
‚170,189,0,193,208,6,167,0,170,131 ,254 
32001 DATAL?2,1897,0,193,141,1,212,232,18 
9.0,193,141,0,212,232,189,0,193,141,255 
32002 DATA1F2,157,0,141,4,212,232, 189,0, 
195, 141,4,.212,232,179, 141,254 ,172,206 
32003 DATA233,192,173,253,192,209,52,173 
‚252,192,170,189,0,194,208,.6,169,0,170 
32004 DATA141,252,172,189,0,194,141,8,21 
2,252,189,0,194,141 ,7,212,232,187,0,174 
32003 DATA141,253,192,169,0,141,11,212,2 
32,189,0,194,141,11, 212,232, 138,141,2352 
32005 DATALF2,205,253,192,173,251,192,20 
8,52,173,250,192,170,189,0,195,208,6 
32007 DATAL&SF,0,170,141 ,250, 192, 189,0,19 
5,141,15,212,232,189,0,193,141,14,212 
32008 DATA232,189,0,195,141,251,192, 167, 
0,141 ,18,212,232,187,0,195,141, 18,212 
32009 DATA232,138,141, 250,192, 205,231,19 
2,76,49,234,198,198,0,170,198 
33000 DATAL?9,254,124,55, 108, 198,254 
‚199,198,190,252,198, 178,252, 170 
33001 DATALFE, 198,257,120,204,192,172,19 
2,192,704,120,748,204,199,198, 198,178 
33002 DATA204 ,248,254,192,192,240,192,19 
2.192.254 ,254.192,192,240,192,192,192 
33003 DATALFZ,120,204,192,192,204,178,20 
4,120,204,,204 204 ,252,204 ‚204 204,204 
33004 DATAZ32,49,40,40,48,48, 48,252, 254, 
198,5,5,6,134,1978, 124,198, 205,220, 248 
37003 DATA240,248,220,204,192,192,192,19 
2,192,192,192,254,1708,239,259, 214,198 
33005 DATALFO,178,170,199,198,230,246,22 
2,205, 198,198,124,178,178,178, 178,198 
33007 DATAL98,124,252,179,198,232,192,19 
2,192,192,124,198, 178,179, 190,214,206 
33008 DATA124.232,176.199, 2532, 240,216,20 
4,198,120, 206,192,248,62, H 230,00,232. 
33009 DATASO,49,48,38,48,48,48, 198, 198,1 
78,198, 198, 198, 198,124, 198,198,198, 198 
33010. DATA2IB, 108, 108,36, 198, 179,198,178 
‚199,214,254 ‚10a, 198, 178, 109,55,1089,7238 
33011 DATALFE,1F8, 178,178, 199,120,48, 48, 
40,48,254,198,12, 24, ad, 74,179,254,0,78 
33012 DATA?6,0,4, 70,4, 14,0, 54,0,4,0,32,0 
"04.0,32,0,0,040450,0,0.16,55,1640,240 | 
33013 DATAO,55,58,186,182,186,68,55,0,0, 
0,0,0,0,0,0,0,24,24,.24,24,28,0,24,24 
35014 DATAO, 158,198, 198,0,0,0,0,102,255, 
755,102, 102,233 ,233,102,0,.0,0,0,0,0,0 
350135 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,24,24,24,0,0,0,0,0,0,0,0,0,0,0 
33016 DATAO,0,0,0,0,0,0,0,0, ö, 24.24, 176, 
126, 24, 24 ‚0,0,0,0,0,0,0, 0,0,0,0,C ö 0, ‚0 


Bi: 





mm m nn 000 [nn 


kg 


if j 


“ Bi, 
Ken 


33017 DATAZ24,24,48,0,0,0,125,125,0,0,0,0 
:0,0,0,0,0,24,243,0,5,12,24,48, 94,192 
33018 DATAG, 124, 199,178,198,178,178,198, 
124,24, ,24,24,24,24.24 24.96 ,235,5 
330197 DATA2,4,20,48,254,56,254,5,6, 12,6, 
236,35,29,40,96, 192,220 254 24,24 ,254 
33020 IMTALF2, 192,252, 54,5, 736,56 56,226, 
192,172, 254,170, 108, 35,254, ,1708, 12,24 
35021 DATA48,48,48,48,55,278,198,108,,254 
„178,19708,1243,124,195,110,58,2,4, 254,56 
>>022 DATAO,24,24,0,0,24,24,0,0,24,24,0, 
0,724,24 .40,0,172,24,48,95,48,24,12,0,0 
2025 DATAI23,0,0,125,0,0,0,75,40,24,12, 
24,48,96,62,591,7,30,24,0,24,24,0,0,0 
3024 DATA2S5,2535,0,0,0,255,0,255,0, 255, 
0,255.0,.0,0,0,0,1,1,.141,3,.3.3,.3.7,7,7 
3025 DATA7,15,15,15,15,31,31,31,31,63,6 
3,63,63,127,127,127,127,0,0,0,0,128,128 
35025 DATA120,128,192,192,192,172,224,22 
4.224,224,0,3,15,31,63,53,127,127,0,192 
33027 DATA240 248,257, 292,254 2754 177,12 
7,63,63,531,15, 3,0, 254, 24 „252,252,240 
33028 DATAZAO, 192,0,0,240 , 252, 2533,235,23 
2,0, tl, 19, 2, 2 24 2 
33027 DATAZSS, zu, Ba Pe u er ba FE an Tu PP 
0,1298,197,192.274, 774, 240,240, 240,240 
33030 DATAZ48,240, 248, 240 , 232, 232,232, 253 
2,252 ‚252,232. 232, 252,252, 240,248,248 
33031 DATAZ4B 240,240, 240,240, 224 224,19 
2,192, 128 0,0025, 25,252, 29,295 ,255 
33032 DATAZI3,234, 294,232, 240,192,0,0,0, 
0,259,23054 755,255,255, z=52.,240,0,23535,17 
33033 DATAT4,409,233,17, 34,68 ‚zus .d, 44,2 
55.,32,32,32,240,240,240, 240, 248,248, 48 
33034 DATA24B, 252,22, 282, 232, 2,2 
4,254,0,0,0,0,0,0,0,0 ‚0,0,0,0,0, 0,0,255 
F3035 DATA233,0, ‘0,0, 0,0,0,0,0,0, 0,0, Ö ‚Ü; 
0,255,.120,66,4,0,0,0,55,0,1u141y1u1, 
FI02E DATAL,1,O, 54,36,8,0,36, 56,0, 40,126 
219 ,255,231,219,126,604,34 34343434313 
33037 DATAS,24,24,24,15,15,24,24,245,0,0, 
6,0,15,15,15,19, 24,24 ,24,15,15,0,0,0 
33038 DATAO,0,0,240,240,24,24,24,.0,0,0,0 
0, 0,2395, 2355,0,0,0,15,15,24,24,24,24 
3037 DATAZ24,24.253,253,0,0,0,0,0,0, 255, 
=35,24,24,24,24,24,24,240,240,74,24,24 
35040 DATA224 ‚224 224 224 224 224,224,22 
Are aa 2 2 240,224 240 .224,0,7 
33041. DATA7,7,7,7,747,7, 255, 255,255,0,0, 
0,0,0,2353,255,170,0,0,0,0,0,0,0,3,3,3 
>42 DATAF,S,0,0,0,0,1,1,1,1,3,3,3,3,7, 
717197145, 15, 15,19, 31,31,31,31,635,83,63 
35043 DATA83.127,127,127,127,128,128,128 
+1208,192, 192,172, 1072 224 224 224 224 
55044 DATAZ40 ,240,290, 240, 255,233, 2533, 25 
5,2353, 259.,255,2553,1997,147,37,37,1,57 
er ATA37 573er, 
29,63,63,63,53,49,. 135, 7,91497,37,97,37 
33045 DATAS1,7,1,63,83,15,53,63,83, 1,146 
3,63,15,63 ‚63,65, Br a Pr Per Pi Bi 
33047 DATa2SS \255 ,255,255,199, 147, ‚37,57, 
1,37,397,37,3, 57,57, 3,3,97,.57 ‚3,135,49 
35 DATAH3E,653,653,655,47, 135, 7,51,57,57, 
274197,91, 741483, ‚63,15,63, 63,63, I; 1; 5 
35049 DATASS, 15,83,63,63,63, 135 ,49,42,63 
‚4#,57,51,135,51,51,51,31,3,3,51,51,3 
er DATAZOF,207,207,207,207,207,3,1,57 
247,299, 249,121,97, 131, 97,49, 33, 7,15 
55051 DATA7,35,51,63,63,63,563,53,53,53,1 
‚37,17,1,41,537,37,37,37,37,37,23,7,33 
a2 DATA4F,57,537,131,37,97,97,37,537,57 
„131,3,397,57,3,63,53,653,63,131,597,57 
33033 Datasz, 57,41,49,131,53,57,57,3,15,3 
,3lıs7a 135,49, 13, 7,193, 249,25. 195, 3 
32034 DATAZO?7 „207 ,207,207, 207,207 , 207,57 
,57,57,37437 4 57, 57, r ‚57,37, 57, 57, 17 
33033 DATA147 147,199 ,37,37,37,57,37 441, 
1.147,57 57,147, 199 „147 ,17,,57,,57 57,57 
sah DATAS7,133,207,207,207,207,1,37,24 
5,231 ,207 ,139,,37,1,233,137,139 235,251 
ar DATAIF7T,231, 239, 255,191 ,255,251,25 
- era Fr Zum 208.227, nn Ba zu zu 
33058 DATAZSS „255, 255,239, 199,239 255,25 
34249,2383,177, 187. 69,93, #9, 187, 199, 253 
33039 DATAZS3 ,253,253,233,235, 235 299,25 
5,231,231,231 ,231 231,255 ,231 ,231,255 
Balel Te DATAS7 „57,57, 255 235,259 295, 193,0 
„0,183, 183,0,0,153, 755, 795 ‚755 ‚755,755 
35061. DATAZSS 2 2 aaa, 
2,2 a 2 2 2 2 2 2 
Sacbe DATAZSS,255,255,231,231,231 255,25 
ba Pr 22 Pe OP a Pen Ft 
2 2 2 5 
3,253,253,2314231,129, 129,231 ,231,2353 


3I064 DATA2EE 255 255 255, 758 239 2385,29 


30 HoMscoMPpUTER 


“229 


£78> 
a 
«5> 
<228> 
<169> 
<168> 
<al> 
<104> 
104 > 
c63> 
<180> 
<2> 
<219> 
chD> 
«250> 
“1075 
a 
te 
<48> 
<207> 


“323 





’ 205.268, 255,299, 239,241 ,231,207,253 


33065 DATA25S, 253,129, 129,235 ,235 233,25 
5,245 ,295 255,295 , 295,231 ,231 „255,249 
33046 DATA243,231,207, 159 ,63,295, 131,57, 


57,37 ,9718974 57, 131, 231, 179,231,231,23] 


Me DaTaz3ı, 331,231, 199, 19, 249 253,249 
.227.207,1,199,19,249,249 243 ,2497,197 
330658 DATALFF,231,207,197,63,35,1,231,23 
1,1,53,63,3,249,249, 19, 199, 199, 19,63 
32047 DATAsS, 1, “7, 147, ‚199,1, 7,245,231,2 
07,207,207,207,1997,17,597,147,1,597,597 
33070 DATALSI,131,59,145, 197,253, 249,19, 
199,255, 231,231 ,255,255,231 ,231,2353,2535 
33071 DATA231,231,233,255,251,231,207,25 
5.243.231 ,207, 159,207 231,243 ,255 ,258 
33072 DMATAL29 233,233, 129 ,255,255, 2355,15 
9,207,231,243,231,207,1599,193, 204,748 
37073 DATA22S.231, 295,231 .231 ,255,255,25 
5.0,0, 255,255, 255.0,255,0,255,0,255,0 
33074 DATA233,233,235,2533, 2523, 259,259 ,25 
4,254 252, 257,252,252,248,248,248,248 
32075 DATA240, 230,240, 240 224,224 ,224 ,22 
4,192,192,192,172,128,128, 129,128,255 
32076 DATAZS3,.253,235,127,127,127,127,63 
.463,63,53,31,31,31,31, 255,252, 240,274 
33077 DATALF2,172, 128,128, 255,63,15,7,3, 
3,141,129,129, 172, 192,224 , 240,252, 258 
33078 DATAL,„1,3,3, 7,15, 63,255,259,15,3,0 
a 2 2, 25,615, 
33077 DATAO,0,0,.0,0,0,0, 235, 253,127,43,& 
3. 31,31,15,19,15,13,.7-7. 7.7.3, 5 949 
33080 DATAS,3,34,34347174717,15415, 15415, 
21,71,63,57,127,255,255,0,0,0,0,0,0,0 
32001 DATAL,L,3, 13.03, 208, 259, 259, 255,0, 
0,0,0,0,3,15, 255,0, 278, 221,187,0,258 
73082 DATAZZI,187,0,2851,291,231,0,223,22 
I Te FF FE | 
33093 DATAL,1,233, Zu 205,299 ,255 205, 23 
Pr en =) ‚255,255, 255,255, 255 .,2339,295,0,0 
33004 DATA2Z5S,255,295,255,295, 2, as, 23 
= 258,255 258,255 255,235 ,0,127, 189,251 
30988 DATA25S, 255, 235,189, 255,254 254,25 
4,254 254 254 254254. 255,191,219,247 
33095 DATAZSS,217, 189, 255,195, 127,36,0,2 
4,36, 129, 1969 , 252,282, 292242 292,252 
35087 DATAZS2, 252, 231,231, 231,240, 240,25 
1,231 ,231 „255, 253, 239,259, 240, 240,240 
33088 DATA240,,231,231,.231,240,240, 255,25 
S, 255,255, 255, 755,15, 15,231 ,231,251,255 
33097 DATA233 ,233, 232, 292, 295,0,0, 255,25 
5,255,240,290,231,231,231,231,231,231 
Rate) DATAO,O, 255, 235,255 , 238 Zu, a, 
0.231, 231,231, 231,231, 231 ,15,159,231,291 
33091 DATA231,31,31,31,31,31,31,31,31,15 
‚31,15,31,15,31,19,31,235,248,248,248 
43092 DATA248, 248, 248,248, 248,0,0,0,255, 
u DEE ZU5 255.0,0,08, 258 235 293,255 
33093 DATA23S 255, 255, 252,252, 2532,252,25 
2.755, 755,755, 755,754 254,254 254,292 
33094 DATA232,252,2532,2408,248, 240, 298,24 
0,240,240,240, 224,224, 224,224,192,192 
32093 DATAL®2, 192,128, 128, 128, 128,12 7,12 
7,127,127,63,63,63,63,31,31,31,31,19 
33076 DATALS,15,15,0,0,0,0,0,0,0,0,56, 10 
8,198,198,254,198,198,198,252,178,178 
31097 DATA2S2, 252, 178,190, 252,120, 204,17 
2,192, 192,192, 206,120, 240, 204,198,178 
33098 DATALIB, 170, 204, 230,254, 192,197, 74 
0,192, 192, 192, 254, 254,192, 192,240,192 
37097 DATALF2, 172,0 

34000 DATA 8,100,192,17,97,175,192,17,8,3 
80,192,17,9,194,172,17,9,56, 192,17 

34001 DATA 8,55,192,17,0,0,0,0 

34002. DATA1L4,182,12,55,7,81,12,55,13,10, 
12,645, 7,91,12,55,14,142,12,893,08,53, 12, s5 
34003 DATA 7 ‚Bl,s, 55,7, 01,6, 45,0,435,4,45 
8,55 ,5,65,0,0,0,0 

34004 DATA 4,70,76,81,4,70,96,81,4,224,9 
4,81,4,226,96,81 

34005 DATA 4,90,95,01,4,70,75,01,4,224,7 
5,81,4,224,76,81 

34004 DATA 4,156, 74,81 ,4,156,94,01,94,27, 
95,81 ,4,27,95,81,0,0,0,0 
34500 DATALZO,157,0,141,20,3,169,192,141 
‚21,3,88,96,120,169,49,141,20,3,169,234 
24501 DATAL41,21,3,89,7& 

rs DATA I, 128, 0, 2, #4, 0, 28, 54, 


u DATA 32, 4, 0, 84, 2, DO, 89, 2, O 
33002 DATA 2335, 235, 0, 235, 255, 0, 255 
ss, 0 

35003 DATA 255, 255,0, 127, 254, 0, 127 
. 254, 0 

35004 DATA 53, 232, 0, 31, 248, 0, 7, 22 
4,0 
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35005 DATA 0, 0% o 0, 0,.0, 0, 0, 0,0,0 
‚0,0,0,0,0,0, 0,0 

35006 DATA 5, 1972, 6, 

8, 0 

35007 DATA 35, 

54, 0 

35008. DATA #7, 
254,0 

75009 MTA 87, 

2,0 

35010 MTA 35, 
20, 0 

75011 DATA 3, 192, 6, 0, 0, 0, 0, 0, 0,0 
»040,0,0,0,0,0,0,0 

35012 DATA 7, 224, 0, 31, 240, 0, 63, 29 
2.0 

35013 DATA 127, 254, 0, 177, 254, 0, 255 
255, 0 

35014 DATA 255, 255, 0, 255, 255, 6, 255 
235, 0 

35015 MIA 54, 2, 0, 64, 2, 0, 32, 4, 0 
le DATA 28, 36, 0, 2, 6, a 128, 


15, 240, 0, 19, 24 
ir, "BR u. 22, (4 ni 2 


254, 0, 131, 254, 0, 131, 


254, 0, 35, 294, 0, 5, 2 


252, 0, 19, 248, 0, 15, 2 


a DATA 0, 0,0, 0, 0, 0, 0, 04 0,0,0 
‚0,0,0,0,0,0,0,0 

35018 DATa 7, 128, 0, 31, 224, 0, 63, iM 
4,0 


35019 DATA 127, 136, 0, 127, 136, 0, 255 


E 1 Urguneu 0 ; 
132, 0, 285. 1356, 0, 127 


136, 0, 63, 144, 0, 31, 


35023 DATA 7, 128, 0, 0, 0, 0, 0, 0, 0,0 
‚0,0,0,0,0,0,0,0,0 | | 
#024 DATA 1, 128, 0, 2, 64, 0, 28, 36, 
I" 

35025 DATA 32, 4, 0, 64, 2, 0, 54, 2, 0 
#024 DATA 128, 1, 0, 255, 255, 0, 255, 
233,0 

35027 DATA 285, 255, 0, 
25,0 | 
35028 MTA #3, 252, 0, 31, 248, 0, 7, 2 
4,0 

5029 MTA 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0 
:0,0,0,0,0,0,0,0 ’ 
35030 DATA 1, 128, 0, 2, #4, 0, 24, 
Ö 

35051 DATA 32, 4, 0, 54, 2, 0, 54, 2, 0 
35032 DATA 128, i, ©, 128, 1, 0, 295, 235 
5,0 

35033 DATA 235, 255, 0, 
. 254, 0 

35034 DATA 63, 232, 0, 31, 248, 0, 7, 22 
4, 0 

35035 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0,0 
+0,0,0,0,0,0,0,0 

35036 DATA 1, 128, 0, 2, 54, 0, 28, 58; 


wi. Pr 


127, 254, 0, 127 


Ö 

35037 DATA 32, 4, 0, 64, 2, 0, &4, 2, 0 

35038 DATA 128, 1, 0, 124, 1, 0, 128, 1, 
[a 

350359 DATA 255, 255, 0, 127, 254, 0, 
„a, 0 

35040 DATA 63, 252, 0, Z1, 248, 0, 7, 22 

4,0 

35041 DATA 0,0, 0, 0, 0, 0, 0, 0, 0,0,0 

‚0,0,0,0,0,0,0,0 

o 

35043 DATA 32, 4, 0, 54, 2, 0, 64, 2, 0 


127 


C 

35045 DATA 128, 
24, 0 

35044 DATA 63, 252, 0, 31, 248, 0, 7, 22 
4,0 

zer DATA Ö, Ö, Ö OÖ, O5 0, DO, Ö% 0,0,0 
‚0,0,0,0,0,0,0,0 

35048 DATA I, 128, 0, 2, 44, 0, 29, 54 


i, 0, 127, 254. 0, 127, 


Ö 
350457 DATA 2. A, Ü 54, En Ü, 5. 2 DO 
35050 DATA 128, 1, 0, 128, 1, 0, 128, 1, 


1 
35051 DATA 128, 1, 0,54, 2, 0, 79, 242, 


IR) 
35032 DATA 47, 244, 0, 24, 24, 0, 7, 224 


Junt/Juli '86 


— 














35053 DATA 
‚4,0,0,0,0, 
35054 DATA 


DATA 
DATA 


BATA 
DATA 


DATA 


35070 DATA 
33971 DATA 


33072 DATA 
33073 DATA 


0, 0, 04.0, 0, 0, 0, 0, 0,0,0 
0,0,0 
1, 128,0, 2, 64, 0, 28, 56, 


32, 4, 0, 64, 2, 0, 64, 2,0 
128, 1, 0, 128, 1, 0, 128, 1, 


128 . 1, OÖ, [nn 2 24 Gr 54, . Ö 
42, 4, ü,; id, 8, U; 15, 240, 


0, 0,0, 100, 137, Si, 148, 1 


0404 04.04 04 0, 0, 0, 0 


[+ me pi Ö, D, Le Pi 0, 2 up 0; Ö 


0, 0,0, 0, 282,0 
3, 135,0, 7, 185, 128, 5,25 
15; 134. 192, 97, 154, 5A, 7, 


2, 254, 84, 9, 134, 54, 15, 1 


3, ru r 128, Fa 135, 128, 3, 


0, 232,0, 0, 0,0, 0,0, 0 
0, 0, 0, 0, 0, 0,0, 0,0, 0 
0, 60, 0, d, 0, 6, 0, 252, 0 
3, 135,0, 4, 255, 128, &, 13 
14, 133, 


192, 10, 255, #44, 10 


10, 133, &4, 10, 253, 54, 14, 


6, 133, 





128, Di 253, 120, a7 


135, 0 

3=077 DATA 0, 252, 0, 0,0, 0, 0, 0, 0 
35078 DATA 0, 0, 0, 0, 0, 0, 0, 0,0, 0 
35077 DATA 0, 0, 0, 0, 0, 0, 0, 232, 0 
35090 DATA 3, 255, 0, 4, 15, 128, 4, 13 
=, i28 

35081 DATA 12, 252, 172, 12, 132, 192, 1 
2, 132, 192 

13092 DATA i2, 132, 192, 12, 132, 192, 1 
2, 252, 192 

3s083 MITA 4, 132, 128, 4, 133, 128, 3, 
255, 0 

75084 DATA 0, 252, 0, 0,0, 0, 0, 0, 0 
35085 DATA 0, 0, 0, 0, 0, 0, 0, 0, 72,90 
35085 DATA 0, 48, 0, 0, 48, 0, 0, 252, 0 
35087 DATA 3, 255, 0, 31, 51, 224, 255, 
Fi 

35088 DATA 127, 85, 240, 30, 171, 224, 1 
za, © ; 

35089 DATA 0, 120, 0, 0, 0, 0, 0, 0,0 
350370. DATA 0, LP ‚up 0; 0, OÖ, 0, 0, je) 
750971 DATA 0, 0, 0, 0, 0, 0, 0, 0,0, 0 
35072 DATA.O, 0, 0, 0, 0, 0, 0, 72,0 
35093 DATA 0, 46, 0, 0, 409, 0, 0, 252, 0 
35094 DATA 3, 255, 0, 31, 51, 224, 255, 
as, 252 

35095 DATA 125, 171, 248, 31, BS, 224, I 
254,0 

750076 DATA 0, 120, 0, 0, 0, 0, 0, 0,0 
750977-DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 
a0 DATA 0, 0, 0, 0, 0, 0, 0, 0,0, 0 


35100 DATA152,175,254, 180, 218,254,80,217 
+202,138,208,245,.95 


35101 DATA 


15, 142,20,55,17,103,20,45,18, 


112,20,55,19,137,20,65,20,178,20,65 


33102. DATA 
[h 


sa103- DATA 


19,137,20,55,1,1,240,0,0,0,0, 


1.1.20,129,1,1,20,129,1,1,10, 


129,1,1,10,129,1,1,20,129,1,1,10,129 
35104 DATA 1,1,.10,129,1,1,10,129,1,1,10, 
129,0,0,0,0 = 

351053 DATA 4,90, 120,33,4,27,120,33,3,169 
‚120,33,4,27,120,33 


35106 DATA 


4,70,120,33,4,27,120,33, 3,18% 


‚120,33, 3,55,120,33,1,1,290,0,0,0,0,0 
40000 DATAL73,18,200,141,2,212, 73,255, 23 
7,18,208,105,154,131,7,212,141,,8,212, 76 
“oo DATASF,254 


42000 DATALA9,224,141 


‚1,220,173,0,220,41 


EEE a Te 173 


42001 DATAO,220,41,2,208,8,258,1, 


‚167 


‚54,141,248, ‚7,173, ö ‚220,41,4,208, 2 ‚206 
420072 DATAO,208,149,33,141, 248, 7, 173, 0,2 
20,41,8,208.8,238,0,209, 169,35, 141,248 
42003 DATA7.173,30,208,13,31,200,41,1,28 





HOMECOMPUTER 31 


; [3 u: EHEN & = 


Fa;z em 


an nn FT Fan — u. = = 


0,18,169,0, 141,20, 208,141; 21,2089,167 
42004 DATA255,141,2, 220,189, 2, 133 Pr | 
62,6,160,235, 136,152, 208,252, 202,138 
42005 DATAZOG 245,230, 2,200 ,230,5,. 208,20 
54,5,208,238,9,208,238,10,208,238,11,208 
42004 DATAZIB,12, 208, 205,13,208,2054,14,2 
09,205,15,208.,2358,2,0,173,2,0, 201 ,7,208 
42007 DATA21,159,4,191,2,0,173, 252, 7,201 
„44 ,240,12,1682,7,2534,248,7,202,138,208 
42008 DATA249,76,136,19,162,7,159, 42,157 
‚240, ‚7,202, 138,208,297 76,156, 19 


a a 

I RENM* | -—— tSPACESI-LSPACEE) 7 — LSPÄLER) 
| 
2 REN" | KA tSPAGESI IISPACESI I TEPACERI | CE 
aeket ke 

3 REM"| MT u p 
4 REM" | SPACE) SOMEWHERE (SPACE) THEREISPAC 
E) TETERAGEI AT SPACE) FORMULA! {SPACE} | 


5. REM" 
& REM" |WRITTEN: SPACEI2O.12.° OSCSPAGEITO 
(SPACEIO2.02. "Bäl 
7 REM" |BYCSPAREFULRICHTSPACEIMLIEHL SPACE 
2) 011985, BS (SPACE) PVC | 
d REH" | DR. BEUERHANNSTR. 23, 34415PACEIESCH 
WEGE | 
dl RIEF" „een, 
10 PRINT"CELEAR FELLON RIGHTSIPARAVISION 
ERPAGEICOMPANYTSPACEIPRESENTS: "ı FORX=532 
457053283: POKEX ,O: NEXT 
11. FOR X=54272 TO 34293: PÜKE X,O:NEXT X 
12 PÜkE 54777, 10:P0OKE 54278 ,2401P0OKE 542 
74,55: POKE 54296, 13: SY364S: AZe0 
20. PRINTTAB{15} "GREEN POHNIPROJEKTEDOHN 
+" 
2i PÜkKE 54204, 10: POkE 54785 ,240:POKE PT De 
93,55: POKE 7040,32 
30 PRINT” CRIGHT2 BPACENTERFSON SPACES AF 
SDEFI-TSPACER ERDE SPACE BFEUFF SPACE 
EFSON SPACES RESOFFILHTSPACER} |LAFGON 5 
PAGES BFSOFFI-" 
40 PRINT*{RIGHTZ} |CAFSOH} | CAICHT ZI _CSPAC 
E AFSDFEI | CSPACES ArScH SPACE AFSorF SP 
ACES AFSON SPACER RIGHTILNTRFSDEFI-TIEPA 
GES AFSON SPACE) ICRFSOFFI" 
so PRINT“ {RIGHTZI-TRFSOHI-TAFSOFF, SPACEZ 
AFSONII LSPACE AFSOFF) |LSPACES ArSon SPA 
EEE AFEOFF SPACEt AWSOH SPACEI 
LEFSOFFITESPACES EFSOH tEFSOFF! 
50 PRINT" CRIGHTZI-LRRSOH SPACES ANSOFF)+ 
tSPACES RVSON SPACEI AVSOFF SPACES BESON 
BrAcER RICHT3) CRYSOFE) aCSPAGESI \CRVSOH 
SPACEI In" 
70 PRINT CRIGHTZITT ITtärsoer SPACEI 
AFSOMI—-ISPAGE AFSOFFI-TSPACEF AYSON and 
GE AFSOFF SPACEt AVSoHh SPACER EICHTII_ 
EFSOFFIWtSPRACESE AVFSOH]- SPACE AFSorF}“ 
BO PRINT“ CRIGNTI | CAVSOH) I CAFSOEF SPACE 
AFSON»IKERACE AFSOFFII SPACE AFSON SPAC 
EZ RFSOFF SPACES RVSOH SPACE BIGHTIIHR 
VEOFFI SPACE? BVSOH SPACEZ BFSOFF)" 
70 PRINT" CRIGHTI=-LAFSEOHI-CBVEDFE SPACES 
EFSON) KEPACE BVEDFEI KSPAGEI In 
SON SPACE ENSOEF SPACE) I. SPACE RFSON 5 
PAGES RIGHTYX SPACE BESOFFI@ I ISPACES A 
FERN) (ZRACEZ AVSOFF SPACE) |." 
100 PRINT CRIGHTITTEFSONITLRFSOFF SPACE 
BFSONIHESPACE AFSOFFIFLSPACEN SESPACE A 
FSON SPACER RVSOFF SPACE) WISPACE AVSON 
SPACEE AVSOFFIS -TEPACEI - CSPÄGEI “CRFSON 
SRACE# RESOFFI- SPACE) =" 
101 FÜR X=0 TO SF:POKE 55456+% ,LıPOKE 55 
SS5h-X,23POKE 555364 ,I:POKE SS6lb-R,4 
102 POKE SS41&+X ,S:POKE SS6F6-X 5: PÜKE 5 
Sö9örkt, TıPOKE SS7T7A-K,B:NEXT X 
110 PRINT"CDOHN BIGHT4 CrAN}SOMEHHERE SP 
AGENTHERE SPACE) TSCSPACE)ATSRACK) FORMULA 


120 FAINT"CRICHTSE DOWME | }_ISPAGEN 
705 ,BAtSPACEIBY CSPALEIPARNVISIONESPACEIE 


DNPANY“ 

130 PRINT" (DOWN LIG,RED RIGHTIWRITTENSP 
ACEIFROMLSPACEI2O.12. 19BSCHSPACEITOLSPÄCE 
IEX.EX. 1906" 

140 FRINTTABEISI"tDOHM LIG.GREENIBYLSRAC 
EIULRICHLSPACEINEHL" 

150 PRINT"{DONN LIG,BEUE RISHTII>>HLERAE 
EIPRESS SPACE} SPACEBARLSPACEITOLSPACEICO 
NTIMUELSPAGEITTT "I POKE 34295,15 

155 L=L+lı IF L=255 THEN HeH+lıl=-o 

196 POKE 54201 ‚Ly2:POKe 54282, H: IF H=254 








re 


32 HoMscomPpUuTER 





la > 


473 


ar> 


ir 


1035 


“833 


“17% 





THEN H=ü 
157 POKES4272,L: POKES4273,Hı POKES4279 ,Lı 
POKES4280,H:ı POKES4275,L: POKES4274,H 
150 SY8 4000:GET AsılF AscH"iSPAcE)” THE 
N 155 
170 FOR %=H TO 0 STEP -Z: FOR Y-L TO 05T 
EP -ArsYrE 4000 
180 FOKES4272,Yı POKES4273, Xı POKES4279 ,Yı 
POKES42B0 , X: POKES4275, Yı POKES4274,K 
190 POKE 34201 ,Y/ZıPOKE 54282,X:NEXT YıN 
EXT KıFORK=-ZO41 TO20471 FOREN „AZ NEXT X 
177 FOR K=47401 TO 49407:POKE X,0:NEXT X 
ıPOKE 54775, 11 POKES4278,77 
198 POKES4284 ‚5: POKES4285, FıPRINT" CELEAR 
}"ı POKESA277,7 
197 POKE 34291 ,90: POKE 54292,110:8Y8832 
200 PRINTTAB{12}"{DOHN? YELLO WIPRDJEKTES 
PACEIA.1.D. . 8. (GREEN DOWN LEFTITI- 


210 FRINFTABE®) = CDONNZ GREEN" A'CSPAGEIF 

BRLSPACEIDIETSPACEIANLEITUNG" 

220 PRINTTABLLLI"DOMNZ CYAN 'G'CSPACEIU 

MISPACEITUTSPÄLCE)SPIELEN" 

230 PRINT"CDOMNS ALGNTE LIE.REDIICHTEPAG 

EIWARTE SPACE I AUF CHPACEI IHRE CSPACEIE INGA 

BE... TROMNSN" 

240. GET Afı IF A#="" THEN 240 

250 IF At="5" THEN 3860 

240 IF Ark>"A" THEN PRINTTABILTHFIDOHN B 

LUEIHAHA. ..«LLEFTT YELLOWIHAHA. . » CUPZI"IG 

oTO 240 

265 PRINT" CELEARI" 

270 PRINTTABLI2I "CDOHNZ AIGHT YELLOWISPI 

ELANLEITUNG: {DOWN LEFTIS AVSON CYAN 
Dre 0 Erz 

ZB0 PRINT" DOWN AIGHT GREENIALSO, ESTHPAS 

EIWARLSPACEIWIECSPACEIFOLGT:" 

290 PRINT" CDOWNYEINES SPACE) ABENDS ,ALSCH 

PAGEISIE, VONESPACEIDER ESPACEIARBEITLSPAL 

EIN" 

200 PRINT" {DOWN} FORSCHUNGSLARORTISPACE) ZI 

EHLICHTSPAGE)ERSCHOEPFT ‚VOR" 

310: PRINT" CDOHNIDERTSPAGEIGLOTZE(SPACEIS 
ITIEN{SPAGCEIUNDTSPACEIDIE CSPAGEILTFF. WIEN 

ER-" 

320 PRINT" CDOWN}HHOLUNGESPACEIEINESESPACE 
IURALTSCHINKENS CHPACEIABDREHEN" 

250 PRINT“ (DOKNIWOLLEN  ERHALTENTSPACEIEL 
EISPACEIDENLSPACEIANRUFLSPAGEIE INES" 

346 PRINT“ CDOAN}KOLLEGEN , DER iSPACEIVONES 

PACEYEINERLSFÄCEIKOLOSSALEN" 

390 PRINT" CDOWNIWENDE (SPACE) INTSPACE)IDER 
SPACE) AIDS-FORSCHUNGISPALEISPRICHT. * 

355 FOR WT=ö TO 9000:4NEXT KT 

360 PRINT" {DOHNIALSCHPACEHERLSPACEHALLER 
DINGSTSPACEI ZUISFAGEIEINERCHPÄCEIERKLAER 

ung‘ 

370 FRINT“CDOHN}ANSETZIEN{SPACEIWILL „HOER 

ENTSPACEIBITETSPACEIEINISPAGEIRUNPELN" 

380 PRINT" (DOMNFDURCHLSPACEIDENLSPACEIHO 

ERER{SPACEIUND{SPACEIDIELSPACEILEITUNGEE 

PAGEIIST“ 

370 PRINT" TDOMMIMITISPACEIEINEHHALCSPÄCE 
AHLTEITOTIGREEN} ." 

375 FOR WT=-0 TO So00: NEXT MT 

400 PRINT" CDOHMINATERLICHLSPAGEIMACHENIS 

PACEISIELSPACEISICHTSPALCEISDFORTCSPAGEI A 

LP" 


410 PRINT" (DOWN) DENLSPACEIWEBCSPACEIINST 
SPACEILABOR. 

420 PRINT" CDOHMIDOCHLSPACEHALBLSPACEISIE 
tSPACEIBEIMGSPACEIINSTITUTTSPACEIFARCSPA 
CEIVIREN-" 

425 PRINT" {DOWN FORSCHUNG CHPAGE ANKOMMEN 
(SPACE) MESSENTSPACEISIE , ZUISPACE) IHREN" 
430. PRINT" COOHMILEIDWESEN, FESTSTELLEN, DA 
GELSPACEIDASTSPACEIEHPERTL-" 

Aal PRINT" DOkH} MHENT{SPAGEHEINES{SFALE)E, 
OLLEGEN ‚DIELSPACEIERZEUGUNG SPACE) VON“ 
450 PRINT" CDOHHIMAKRO-CHROMOSCHEN „GEGLEC 
KTESPAGEI ZU EPAGEISE IN" 

Ab0 PRINT" CDOWNISCHEINT ES{SPAGEI ISTESPA 
CEIBISHERTSPACE}ALLERDINGSTSPACEINDCH" 
470 PRINT" CDOHNINICHT CSPACEIGELUNGEN „DIE 
BELSPACEIWIEDER LSPACEIEINZUFÄNGEN. " 

480 PRINT"VONLSPAGEIE INER (SPACE) BERLIEHRLU 
NGCSPAGCEIMITCSPÄCEIDIESENSPACEH IST" 

4906 PRINT" {DOHNFDRINGENDSTISPACEIABZURAT 
EN. m [7% 

00 FOR WT=0 TO L1000:NEXT WTIPRINT"CDUN 
Mar" 

501 PRINT" (DOHNS}FEBENSO „WIELSPACEIVONISR 
ACEIEINER{SPACEI BEREHRUNGLSPACEIDER" 

502 PRINT" {DOWN} MAKRO-CHROMDSOMIERTENISF 
ACEIHAENDE. » » tDOHNEI" 
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Perl 


503 FOR WIe0 TO Z000: NEXT WT 

S10 PRINTTABLLON"CYELLOHIANLEITUNGESPACE 

FILFIESPACEISPIELCDONN LEFTIF AVSON LIG.R 
PETTTeReTTT TO O0 nenn 

520 PRINT" CDOHNZ HHITEI=CEREEN AIGHTISTE 

UERUNGTSPACEIEBER SPACE JOYSTICKTSEACEH I 

NISPAGEIPORTESPAGEIBD" 

530 PRINT" {DOWNZ HHITEI@TEREEN ELEHTIJEH 

EILSISPACE)IDEN SPACE )YE INBANG TSPACEIDEBTE 

PAGEINAECHSTEN” 

540 PRINT"CDONN RIGHTZHRAUMESCSRACEFERRE 

ICHEN. " 

50 PRINT"CDOHNZ MHITEI=CGREEN RIGHTISIE 

SSEAGEI HABEN CEPACENNUR CGEACEIFANF EERAGEI 


Sad BER TERINTETDORNZ KHITEI=ÄGREEN RIGHTIFRN 
FiS PACEIPROCSPACEI SPIEL ‚VERSTEHT{SPACEIS 
ICHEDOHN3I" 

70 FOR WT=0 TO 7900: NEXT NT:ıGOTO 200 


SB0 FRINT"CCLEAR DOKN? AIEHTIE HHITEIGER 

EDVETCFANDTTSPACE GREENIREHLIIEPECTELLON) 

ACBROHNIDELIG REDIYLDGRET SPACEINT" 

590 FOR X=0 TO 40:8Y5 4000: FÜR WT=0 TO 4 

ÜO4NEXT WTINEKT X 

400 Bi=1l:LE=5 Be 

510 ON BI GOSUB 5000 ,4000, 7000 ,BO00, 7000 

„10060 ,11000,12000,14000 

615 PRINT"{UP RIGHTS MHITEISCORE: "SCH" 

SPAGEILIVES: "HLE 

420 POKE 53278,0:POKE 33279 ,016Y5 5000 

ir) KI=PEEK (53248) ı VI=PEEK(SIZAF) IF Y>% 

1+3 OR X<21-3 THEN 3000 

631 IF Yıyı#z AND Y>Yi-3 THEN 540 

532 GOTD 3000 | 

540 Bi=Bi+1:5C=SC+H1000+1NT (F00-RNDI LI) FF 

ORX=53248 TO S3243: PÜKE %,0:NEXT X 

550 FOR X=0 TO 30:5Y58 40001PRINT:iNEXT &: 

GoTO #iü 

3000 LE=LE-1 Y- 

3009 SYSB4S: POKE 532497, 1: FORZ=SOTDLG 

3910 FORD=32T035: POKEZ040 ,D: FOKRE 275,3 

SıPükE 54273,D*HL05S0%+30)+100 

2020 POKESA272, DeSINiD/S50)+120: POKE 3427 

5,0: NEXT D,K 

3050 FÜKE 2040, 321 FOR X=-35 TO &1:F0OR WI= 

0 TO 150: FOKE 54270,0:POKE 542090,33 

3050 POKE 2040,X: POKE 54287,X#8:NE3T % 

3065 FÜOKE 54275,0:FOKE 34290,0: FOR WT=eo 

TO 500: NEXT WT:PÜKE 53249,0 

3055 IFLE>OTHENFÜRX=53248 1053253: POKEX „OÖ 

ıNEXTX: SYSAE2: POKE 2040,32:60T0.610 

3070 PRINT"{CLEAR ErAN Daun RIGHTIISEEN 

SCSPAGEIASTEPAGE) IFISPACEITHE (SPACEIGAME 

tSPACEIHASSSPACEIENDED. . . {DOHHZ}“ 

3080 PRINT"{RIGHTZIYOURCSPAGEIF INALTSPAC 

EISCOREISPACEI TSCSPAGEN ı "SCH "ISPACEIFOI 

NTS" 

3081 FOR X=55554 TO 35378: POKE %.1-33233 

sNEXT & 

"090 FOR X=0 TO 100: FOR WI=0 TO 20:1NEXT 

WTıSY8 4000:NEXT 3 

3100 RUN 

So REN mama aaa 

4510 REM 

45320 REM 

4530. REM 

4546 REM nunnnnnndnehieeeee 

5000 PRINT“ (CLEAR BEDI"; | 

Eo10 FRINT"T#a4r2#4 44444 

A 

So20 PRINT"+44444[SPACE1O)4+ SPACE NEREY 

I-tArson SPACETITHEIGPACEF RFSOFE}| CHEND 
ACEI#" 

5030. PRINT"A4HHLSPACEIFTI+ALSPACE YELLOW} | 

" {NGREYIeLCYANIUNIONCHGRETIHHTELLOW)N I. TE 

BACH RED) #" 

Saal PRINT"+4ESPACEIFISH = 

{HGREYI EYELLOWID. IHEREY: 





LEW.EL-B 


EPAGE 

34 FELLOWIT. IHER 
ErIMHVELLOW} “SPACE REDI#“ 

5050 PRINT" ++ SPACEB} HH CSPACEII MH SPACE 
2 LEREr BrEON REN SOFE HHLTEIENAKETDSRE 


r BFSONIERCHFSOFE ++“ 

tere) PRINT" +4{SPACE1O] SALSPAGEA) Ars te4 
E02 20 

5070 PRINT" #+CSPACEt GREEN} I. RED SPACEH) 
+ SPACES) AHHLSPACEN) 444" 

So80 PRINT"HLSPACES GRKEN} = IBED SPAGE#) 
+4 SPACES} SH SPACE JO) 444" 


=070 PRINT" #ESPAGEIO} 44 LSPACESI+SSPACET 
Die+" 

5100 PRINT"+LSRACEF) 4SASPACES) + LZPACEL 
L>++" 

sıilö PRINT" HLSPACEBI HAALSPACEII AALSPAGES 
IE LET y44* 


3120 FRINTTATEPASEEI ++ HTSEACER AtSpAcE F 


—uEa 4.7 er] Pe Tenline niet Im Fl a 
EN 2; ER a A —- ‚a nn nn d) ä 


Juni/duli '86 


zu 


1Bb> 
973 
“1945 


1237 


“2123 
1453 


1217 
“89 > 
92> 


251> 
bh 


<1B4> 


033 
<1b7> 


<103> 
“161> 
«1595 
“12% 

230 > 
“145> 
Te R 

<148> 
<243> 


“1173 
«B3> 


<157> 


154> 
<172> 


“1675 
<103> 


ar 
<17B> 
<106> 
“hr> 
109% 
<d2> 
146> 
£173> 


“158> 


2325 


1453> 








4a LHPACET) 44 

5130 ERENTE +1SPACES) ALEPALETIHALSPACES 

7#+4444[5 + 

5140 gt Aa SPACEHT AHLSPACEN 

rss EPASETI | 

3130 PRINT" +LSPACESI+#CSPACERI AH HEPACES) 

4a lSPACEIF) #4 

S160 PRINT"AHSPACESI SHLSPÄGEP I AHHSPACES 

34415 PACEI) ++ 

5170 PRINT" A41SPAGEII ++ SPAGEDI #44 ZA 
CESI+HLSPACET) ++ 

So PRINT" Hi SPACEZ) AsH SPACEB) 44445 PP 

ACES} 44H SPACETI 44 

S170 FRINT"4+L SPACE) SSH SPACEFI ++ LZPAC 

BEI SH SPACE) 44 

=200 PRINT"+#L SPACE) ++ 5 PACEI TI HS PÄG 

E44 

S710 PRINT" 4sCSPACEZI #484 CSPACEIEI 44 SPA 

EE#4} +4 

5720 PRINT" +4 SPACE) 44H SPACE TI 44H 

ya4“ 

5230 PRINT" s4{HHITEIEKITIREDI AHA 

een} 

“240 FOR X=1024 TO 1945: IF PEEK(X)=32 TH 

EN 3240 

5241 IF FEEKiKI=Bd THEN FOKE %,216 

250 IF PEEK{X)=71L& AND PEEKiX+1J=32 THE 

N FOKE X,21S:POKE 54272+%,7 

5240 NEXT XKıPOKE 33248,245ı POKE 53249,20 

O:POKE 53250, 100: POKE 53251 ,100: 1=40 

5770 Y=2153:POKE 53269 ,„G3: RETURN 

000. PRINT"LCLEAR HHITE} I (HGREFI I, NGRE 

YI I tDGREFI Is CMGREYI In CHOREYI In CMHITER |. 

CHGRET} I- CHGREYI I. TDEREr} In CHEREFI I CHOR 

En Is £HHITEI I» CHOREr} I. IHREN} I. CDEREF I 


5010 PRINT" CHNITEI CRFSON CYAN} THEISPACE 
I INSTITUTE "SESPACEINAINTSPACEIENTRANDE! L 
AFSOFE a 

oo PRINT“ CHEREYI IM tSPACEZB WHITEIER-" 
5030 PRINT" CHEREYI -SPACEZS HHITEIIT!" 
6040 FRINT" CMEREYI I, TEPACEZE RVSOH REDI*+ 
+riäFSdErR HOREYI- 

5050 PRINT" CHGREY? -TEPACESO BFSOH BEDI* 
ee SOFF NMOREYI-" 

oh PRINT*IDGREY?} ITAFSOH BEDI sr AN 
SOFF SPACET BESOH TH el 
FEOFE DERETI-" 

4070 PRINT"CDGRETI BED) Hr 
SOFF SPACEI AVSOH) HAHrHHH ER 
FSOFF DERErI-" 

söad PRINT" HGREY} I. LSPACEZE I." 

5070 PRINT" CHEREF) “ISPACEIBI =" 

4100 PRINT" CHEREFI I CHPAGEZEN I 

A116 PRINT" CHEREFI = CSPAGEZB) - 

4120 PRINT" CHHITEI RED BVSONIAAHeHHRSEnh 
eLRFSOFF SPACEI BESOHI HR 


KEOFE HHITEI," 

5130 PRINT"CHHITEI “CBED AFSONI Hash 

I = SPACET AFSONI+TCR 
HHITE3-" 

&140 PRINT” CHFREY} I, TEPACEZE In, 

5150 PRINT"CHGREFI = CHPACEZBI = 

5160 PRINT“ CHGRET In TERÄCEEEN In 

5170 PRINT"IHGARETI “TAFSOH BEDI++LCAFSOFE 

GRACES RFSOHT et 

iO PRINT" CRGREFI 12 CHPACEZSN I. 

si9d PRINT"CDERENI “TISPACEZE) = 

4200 PRINT" CHGREFI IESPAGEIOH-, 

4210 PRINT" CHGREFI = CHNITE)I -CHGRErI CH 

EREF} = IREREr> = CHGRET} \-' CHSRETI = CHHITE 

I U CHGREr> -CHBREFI -EOGREF} = EHGREFI TC 

HGREY? = CHHITEI ST CHGREY} CHGREY) \- {DOHN 

Y = 


5220 POKE 53248,240: POKE 53247, 1978: POKE 
53250,50: POKE 53251 ,71:POKE 57252,08 
6230 PFOKES3253, 100: POKESI2S4 , 150: POKES32 
55,191: X=250: Y=47: POKE 53269 ,63: RETURN » 
7000 PRINT-tCLEAR GREEN)"; 

7010 PRINT" 4444444 RFSOH YELLOW)WELCOMET 
SPACEIABDARD! ERKSOFF GREEN) FARARHE" 
7020 PRINT" AaaassahaAlSPÄCELO) Ass s4 





PRINT“ 4064444 {SP ACEIB) 445544" 
FRINT" HH SPACEZII a4" 
PRINT" +4 [SPACE 10) #444 1SPACE 10) 44° 
PRINT" ALSPACEFI Aha LH PAGEFI +" 
PRINT"»SCSPAGESI ass ass TPACER) 


PRINT" +TSPAEEP 74444444444 LER ACT I 4" 
PRINT" #41 SPACEI) 44444 ZPACEF) 44" 
PRINT"AHLSPACEP) ash [SPACEFI a4" 

| PRINT" 44415 PACEB I 44435 SPALED I #4 
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— E En in. = = “ SE — —— — — nn —— en — ee = e=° Te 


m, Hi PRINTHASSSLSPACE TI HAASAHCEPAD 74 er en a 





dis 


i BE 3 3 je | .,. #103 7040 PRINT” CHHITE} 444444 CCYANFTHEISPÄCEI 
| 7130 PRINT" A444 SPACE SI HD RACES FIRST(SPACEICORRIDORCHHLTEI HH" ar Fe 
| n 74444" | | “a0 7050 PRINT“ CHSAET) Ahsss Asa 
7140 PRINT“ 4444 ZPACEEI Hr SRACES Aha aahn <247> 
ES 5.6 de 70% FO&O PRINT" CHGRET) Ah 
7150 PRINT"#4#+44C5PACE63 4444444444 (PACHS et ar TE 
| 4) 1#4+4" BO 2070 FRINTt it 
| 7 40 FI PRINTTAMRSISPACEN) Here nun ea £ 
Eat <130> FOBO PRINT" ELIG. GREEN ALOE ai 
| . 175 PRINT" 434435 PACE41 444444444446 [5 PA MIX -KSPACEIF CrANISH" 755 re 
| CESIrs#“ <1BiF 9070. FRINT“{LIG GREEN aaa GREEN -C HER 
7190 PRINT" 444441 SPACE) 4A SPACEZO CYAN} +4" <122> Daten 
ee “1913 7100 PRINT“CHWITEIEXTPURPLE SPACEISI ILHE eh 
| u; et PRINT" HH ZRACE et SPACEII CYAN AYSOHtae“ = <B7> He 
| GES} 44444" <2015 F110 PRINT" CHWITEIITCPÜRPLE SPACEISHI N XC hie. 
7200 PRINT"aS4CSPACEF) Hr ACET) SPACEIT CYAN ArSon}sa+" <i> Fre " 
| u! u de “Il? 7120 PRINT"00000-, (SPACEZ# RFSON) #+" «3 , BB u 
#210 PRINT"HRIEPACESIAtrarr a PAGEPI +4" <a) 7150 PRINT"00000000- (SPACE) ++" 2317 1 vun 
7220 PRINT"44444 [SP ACED) aus eeete 2140 PRINT"OO00000000000- [SPACE IST 44" air I Frl; 
| ir u “1273 7150 PRINT" GREEN} 0000000000000000000.00 u Bu 
we i 7235 FRINT"+44+4{4H ITEIEXITEGREEN) 4444444 nlain]nlalaunaly -185> ae me 
| DON" 251> 150 PRINT DEAD | Fiei 
' 7235 POKE 10724,21S: POkE 53294,1 <h2> Ara a 0, 
OD , 7240 FOR X=1024 TO 1785: 1F PEEKIXI=32 TH 9170 PRINT" CHGREY] sassras aaa a 
EN 7250 <103> ET EEr I ZT “1025 sah 
7241 IF PEEK(XI=BB THEN FOKE 1,216 <140> 7100 PRINT HERE ee Ber} 
7250 IF PEEKtX)=215 AND PEEKIX-11=32 THE et an 


N PÜKE X,Z1S: FOKE SS272#% 1 

7240 NEXT XtPOKE S3248,215:POKE 33249 ,20 
SıPOKE 53250, 100:4POKE 53251, 55: X=s4 

7270 Y=214:POKE 533252, 70: POKE 33267,177 
7280 RETURN 

BO00 PRINT"LELEAR PURPLEI*" 

Büio FRINT"3444sACAFSOH CYANITHELSPACEIE 
OLLEABUE "STSPACEILABCPURPLE AVSOFFI Ser 
Eu 

0020 PRINT" 
Pr 

8030 PRINT" #+CSPALETI 44H SPACETI HH HS PA 
CETIA" 

8040 PRINT"ACSPAGEBI A4C5PACEP) 44CSPACEB) 
rule 


E00 PRINT" +LCEPALEBI SSCSPACEFI +SCHPACEBI 
ae 

0060 PRINT"+CSPACEI} |» CSPACEI) +4 SPACE) 
I PAGES HE SPACE) 1. CEPAGET +" 

2070 PRINT"+CSPACETI S4CSPACET) +4 CSPACETI 
Far HPA TI HH SPACE IF 4" 

Ed PRINT"#AESPACE II 445 PACE3 I#sl5PACE3) 
SPACE TI PS BRACET I SH RACE TI 4" 

8090 PRINT"+CSPAGET 4 CSPAGET) AAtGBACEN 
a SPACE FAME SPACETI NAT SPACETI 4" 

B100 PRINT"ALESPACETI HLSPACES) AA lHPACEA 218 





9190 PRINT" CHHITEIFAHHHEHs 
ET 7 227 2 5, 

9200 PRINT Et 
En 2 22 7 2 2 

92106 PRINT HLUEI- Kb» bb aaa 

a EL Er ON RE 

"DOWN" 

9230 FOR Keilöd TO iB40ı IF PEEKtKI=88 TH 

EN FPOKE X,21& 

7235 IF PEEK(X)=87 THEN FPOKE %,215 

7240 NEXT KıFOKkE 53248, 245: POkE 33249,13 

örPOKE 33259,255 

7250 FOR X=53250 TO 53252 BETEP Z:POKE \%, 
150: POKE K+r1,117:NEXKT 

gt X=36: Y=123: RETURN 

10000 PRINT"IELEARF": 

10010 FOR KH=0 TO 15:1 Y=INT tZ0eRHD 1} ade 
INT {ZO8RND EI) I: C=INTELSHRND LI +1) 

10020 PRINT"CHOHEI":FORD=- 1 TOVY: PRINT: NEXT 
ıPORE545 „CHPRINTTABERI I. H PRINTTABIKI“ * 
gu 

10030 NEXT HH 

10040 FOR X=-1024 TO iöS4ıPOkKE 3,2181 F0KE 
SA2T2+X.2ıNEXT X 

10050 FOR X=1024 TO 1704 STEP 40:PüKE X, 


CSPACES) #4CSPACES) HISPALEI) 4" 1b: PÜKE K+30,216:POKE S4272+X,2 
B11O PRINT" +LSPACEN +CSPACER) #HESPACEFI + 10060 POKE 34272+2+30, 2: NEXT X 
KSPAGESI + CSPACEA) HCSPACEZ) 4" 10070 FOR X=1 TO 1S:PÜKE X+1904 ‚2161 POKE 


8120 PRINT" ALSPACETI MLSPACES HH SPACED | 

= ISPACETI HH SPACESIHLSPACE I) 4" 

B130 PRINT"+LCSPAGETI =, [SPACEII FSCSPACES) 

TPACE TI BPACETI IH BPACE FI a" 

9140 PRINT" HESPALET "HSPACETI HH SPACET) 

he CSRACETFSSLSPACETI M [SPACETI 4" 

150 PRINT" ALSPACESTFLSPACETI 4HESPACEN # 

(SRALESAHLSPACEFTI HSPACEH 4 

BIEO PRINT"HESPACESAESPACED) = SPACEN) * 

PAGES ESPACEFTI AHESPAGESI 4 

170 PRINT" ACSRACES HEPACEFI-I CEPACES + 
43-1 [SPACEII HLSPACER FA" 

E10 PRINT"AHLSPAGESI HESPACESI -| TSPACESI 

ERACERI- | TERACETI HISPACER 4 

E1FO PRINT" AESPACESIALCSPACET) (- (SPACESI 

SPACE} I- CSPACETIALSPACEH) 4" 

8200 PRINT" HSPALESIMSPACET) UESPACES)S 


1934-X „215: POKE 54272+1904+X,2 
10080 POKE 34272+1934-X 2:NEXT X 

10070 FOKE1893 ,32: POKE1892, 32: POKE1B91,3 
2ı PORE 1833,32: POKELBS2,, 32: POKE1BS1,32 
10100 PRINT" CHEME NMITE RIGNTIEXITERICHT. 
ErAH> THETBIGHTPULTINATE (RIGHT) RANDONGRZ 
1ori0 PRINT"{BED RFSON RIGNTI+LRISHTZ2YF" 
ı PRINT"IRIGHT SRACES DOHN LEFTS ERACESI" 
19120 POKE 33248 ,243:1POKE 53249,211 
10130 FOR %=53250 TO 53262 STEP ZıPOKE X 
‚140: POKE X+1,130:MEXT XıX=39:Y=57 

10140 POKE 53249 255: PRINT" {DOWN18)" RET 
LAN 

11000 PRINT"CELEAR REDI"} 

11010 FOR X=1 TO ZI: PRINT" RFSON) 4444444 
tet NeElT K 


CSPACES) = CSPACEII HLSPACEA) 4" 11020 PRINT" CHOHEI"TFOR X=1 TO 20:PRINTT 
210 PRINT*HLSPACET IHCSPACEE) | CSPACER ABK" CSPACET} "NEXT X 

34 (SPACEN +" 11030 PRINT” CHOMEI"ıFOR X=20 TO I STEP-1 
B220 PRINT"#LSPACED) |a+CSPACET) (#44 [SPA :PRINTTABEKI "TSPACETI |": NEXT X 

GEF} #4, LSPACE2) +“ 11040 PRINT"LUPIT RIGHTII SPACE UP SPACE 


8230 PRINT" CHHITEIEXITLPURPLEI HH444sH444 
LOHN)" 

8240 FOR K=1024 10 1740: IF PEERIKI=B8 TH 
EN FÜRE X,21& 

E25 IF PEERCHI<SHZIA AG PEERiKICHSZ THE 
H PORE 54272+% ,3 

8240 NEXT KıPükE 53248,245: PüKkE 53249,20 
OS: FÜRE 53250,100: POKE 33251,115:%=32 
BZ70 YazizıPükE 53252, 115Sı FOKE 532597 ,531 
RETURN 

000 PRINT"{BLUE ELEAR)": 

7015 FRINT",. kb u bb bh! 


=, 
2020 PRINT" u vw vr a 
LE 


9030 PRINT FELL 


3# HOMECOMPOTER 


0 o<« ner 


UA SPACE VR SRACE DOWN? BRACE UA SEAGE 
WE SEAcE GE Be 

11045 FRINT"CHONE DOHN RVSON REDIAHSan4s 
Be rs GE 

11650 PRINT“ (HHITEJIEXLSPACESI "PRINT" ITE 


SrAcEI" | 

11060 PRINT” CHONE DOWN EISHTZO AFSOM BED 
BE Du 56 2 5 2 Ed 

11070 FRINT"CHNITE AIGHT27 SPACEIEN CDONN 
LEFT# SPACEZYHIT“ 

11080 PRINT" CDOHNIE EHITEHEXTEPACEFI" IFA 
INT"ITCSPACESI "ı PRINT"CHED BFSONTMeee4H 
aha“ 

11070 FRINT"CHOHE KIEHTIO DOHH LIG.GAEEN 
IG0OD (SPACEILUCK ! CDOHHZTY" 


_— eng Zn —— ng Zug 72863 —t 
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11100 POKE 53248,210:POKE 53249 200: Ku 

br Y=&6: POKE 53269, 3:1 POKE 53251,125 

11110 RETURN 

12000 AZenZ+lılF AZ>1 THEN 12590 

12001 POKE 33271,1ıPüKE 53277 ,1:P0OKE 532 

69,1 

12002 PRINT"LCLEARI":FOR X=0 TO 200: POKE 
2040,45: POKE 53748,255- (20%#5IN (X/20)+20 


) 

172010 POKE 2040,45: POKE 53249 ,KıHEXT 
12020 PRINTTAB {103 "tGREEN>HALLOTSPAGEIME 
MSCHISPACEN! " 

12030 GOSUB 13009 

12040 PRINT" CDOHR} SCHOEN , DASSCSRACEIDUGE, 
PACKIESCSPACEIBESCHÄFFTIEPAGEIHAST «nu. 
172055 GOSUB 123000 
12040 PRINT" CDOWNY}DIETSPAGEIFORHMEL (SPACE 
IDIELSPAGE}DUESPACENSUCHST „BEFINDET 
12070 GOSUE 13000 | 
i2o8a0 PRINT" CDOHNFSICHTSPACEILEIDERTERAE 
EINICHTISPAGEIAUFLSPAGEIDIESENTSPACEIPLA 


2070 GOSUB 13000 

12100 PRINT" DOKN} NETEN. WIR TERACEIWERDEN 
CSPACE}DESHÄLBLSPACEHNUNTSPACEIEINGSPACE 
FWENIG" 

i7110: GOSUB 13000 

12120 PRINT" BOMN}TELEFORTIERENTSPACEIME 
ESEN. 2..." 

12130 PRINT"CDOENE AICHTE BEUEI>ISPACEIF 
RESSCHPACEISPACEISPACEITOTSPACEITELEPORT 
ISPACEI<":SY5 B45rPOKE S4776+14,0 

12140 GET AtıPOkE 2040,45: IF Ars>"tZPAcE 
3" THEN POKE 2040,46:160T0 12140 

12150 PRINT"CCELEAR DOWN? RISHTII BURRLEI 
TISPAGE GREENIELSPACE BLUEILISPAGE FELLO 

WIELSPACE DRANGEIPISPACE TELLONIOLSPACE 

BLVEIRTSPACE GREEHITISPACE PURPLEI!" 
12151 PRINT"CUPI EFSON MHHITE nn GER 

SPAGES CYAN SPACES PURELE SRAGE> GREEN 

FACES BLUE SPACE YELLOW SPACE ORANGE s 

PACESI":POKE 53271,0 

12132 PRINT" {DOWHR EFSON QRANGE SEACES TE 

BARON BERGES BLUE SPACES GREEN SPACES EU 

RPLE SPACES CYAN. SPACES RED SPACES MHITE 
SPACES}"ıPOKE 53277,0 

12150 PÜKE “3269 ‚Or PÜKE 24275 ,0: FORDbe100 
TO-405TEP-2 

17170 FORBL=1T05:51Y854000: POKES42 75,129 
i2i80 FORWT=-1T0 DiNEXTRT:NEXTBL 

12190 POKES42765, 33: POKES4272,100-D: FOKES 

4273, 100-D: NEXTD 

i7200 FOR k=ab TO 300:5Y5 4000: POKE 54275 
‚33: POKE 54274, 129: POKE S4276,0:ıNEXT X 
i7710 POKE 54275,0: PÜKkE 54274,1297 

12220 FORD=-40T01008TEP2 

12230 FORBL=1 108: 5Y84000: POKESA275, 129 
12240 FORWT=ITO D:NEXTWTINEKTEL 

12750 POKES4276 „33: POKES4272,100-D: POKES 

4273, 100-D: NEKTD 

12250 PRINT"{GLEAR GAELENIWIRTSPACEISINDE 

SPALE)DA, INISPAGEIEINER SPACE) ANDEREN GSP. 

ACEIWELT..." 

127270 FÜKE 53249, 11 POKE 53777, 1:fkE 32 
71,1: 605UB 13000 

12200 PRINT" tDOHNINUNCSPACEIFOLGT SPACE) 
DASCSPALCEILABYRINYHISPAGE DER (SPACE) ABSO 
LUTEN":GOSUB 13000 

122970 PRINT" {DOHNFSCHWIERIGKEIT, [SPACEIW 
IEL, VIELCSPÄACEIGLECKLSPACEI  GOSUB 1 

3o00 

12300 FOR WT=0 TO 1000:NEXT WTII1SYS B3äıF 

OR WT=0 TO 1SOOGENEXT WT 

12310 PRINT"ICLEAR DORETI"; 

12370 PRINT"aes88s008800800000000 aan 
ii 

12330 PRINT" “4 CSPAGEFI - TSPAGELZIFOR- + 


12340 PRINT" SPACE) #TSPACEFFIMULAF" 

17350 PRINT" SPACE} #LSPACET I TSPACEIZ) | 
ee“ 

12360 PRINT" CSPACEI HLSPACEZ) Yasha 
PERFEEUFEETT, 

{2370 PRINT" SPACE) HLSPACESI - tGPACEIS? “ 
I a 

12390 PRINT*CSPAGEI+LSPACEZE)I #" 

12390 PRINT" CSPAGEI H KSPACEITI I (SPACES) 
I, LERAGE SI #" 

12400 PRINT" [SPAGEI HH 
#4 [SPACE +" 

12410 PRINT"SPACE)# TSPACEION V LSPACEIF 
ee 

12420 PRINT"CSPAGE}+LSPACEZAI ®" 

12430 PRINT“ SPACE) SLSPACEI} I, TEPACE20 | 


—— 
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12440 PRINT" TZPAGEI HP AG 
en 2 22 2 222 25 

12450 PRINT"{SPACEI SPACE IF) X »TZPACEE) 
I 

12480 PRINT" CSHIFTS Ist SPACETEI +" 
12470 PRINT" ISPACEIM- (SPACERI |» KSPAGEION 
I, {SPACEIFI#" 

12490 PRINT" [EP ACER 
+ CHPACE II +" 

12490 PRINT" SPACE} TEPACERI SHE PACE 2) 
SHLSPACES) A" 

12500 FRINT" SPACE} 4TSPACESI Het SPACE * 
Harp y+" 

{2510 PRINT“ SPACE) +ESPACEE)  TSPACESF In 
LEPACESI U CSPACEAI +" 

ee PRINT" {SPACEI HCSPACELTI + SPACE) 


ss PRINT" I#, CSPACELFI 4 SPAZEIO) I " 

12540 FPRINT"a060002000000000a00maaaannnn 

natDohm}" 

12350 FORX=200T00STEP-2: PÜOKE2040 45: POKE 

53249 X: POKEST248 ,X+45: POKEZO40 , 46: NEXT 

12580 FOR X=1024 TO 2000: 1F PEEKIXI=09 T 

HEN POKE %,216 

12570 IF PEEKIXICHIZ AND PEEKIKICH2IG TH 

EN POKE SA272+X,5 

12575 IF PEEKIX}<AO THEN FOKE S42T2+HK,1 

12380 NEXT XıFÜükE 2040,32 

17590 POKE 33249, ,A0:POKE 53249 ‚2051 POKE 

53249 255: X=205: Ye39ı POKE 53271,0 

12600 POKE 53277,0:POKE 53250, 100: POKE 5 

3252 , 1201 RETURN 

12977 END 

15000 FOR X=0 TO 10 

15020 POKE 2040,45 

13030 FOR WT=0 TO 10:NEXT WT 

13040 POKE 2040,46 

13050 FOR WT=0 TO 10:NEXT WT:NEXT KıRETU 

FIN 

EuoDn PRINT"{CLEAR DOHHT AIGHTS BLUEI>TE 
ADEIPRESSLSPAGE)EPACELSP ACEITOLSPACEITE 

FE EHE eR EN B4S:ı POKE 54276+14,0 

14010 BET AsıPÜükE 2640,49: IF Asc>" (SPACE 

+" THEN POKE 2040,46: B0T0 14016 

14020 PRINT"CELEAR DOWNS AICHTIL HWITEIT 

{SPACE BEDIELSPACE HHITEILESPACE REDIELE 

PACE HHITEIPISPACE REDIOISPACE WHITEIRTE 

PAGE REDITISBACE MEILE)!" 

14030 PRINT"CUPF BUSOHN GRANGE SPACES TEL 

LOW SPACES BLUE SPACER GABEN SPACES PURR 

LE SPACES CYAW SPACES BED SPAGES WHITE 2 

PACES)"ıPOKE 53277,0 

14040 PRINT"IDOHNZ AVSON WHITE SPACES BE 

D SPACES CYAN SPACES BURPLE SPACES GREEN 

SeAuer BLUE SPACES YELLOW SPACER GRANBE 
SPAGCESJ"ıFÜORE 33271, #) 

14050 PRINT"{UP RVSOH GRAHGEILITLILYELLO 

WITEITLBLUEIIIELTGREENIT"IENLPURPLEI"" 

IECLETANILIILICREDIIE"*LCHHITEICII*C":PO 

KE 53277,0 

14055 FORD=100TO-AUSTEF-2 

14040 FORBL=1T0S5: 5Y84000: POKES4274 ,129 

14070 FORNT=1TD DıiNEXTWT:NERTEL 

14080 POKES4274,33: POKES4772, 100-D: POKES 

4273, 100-D:NEXTD 

14070 FOR X=0 TO 30018Y3 4000: POKE 54275 

‚SSıPOKE 34276 ,129: POKE 54276,0:NEIT % 

4100 FÜRD=-40T01008TEP2 

14110 FOREL=1TO3:5Y54000: POKES477&,127 

143120 FORNT=1TO D:NEXTWTINEXTEL 

14130 POKES4275, 33: POKES4272 , 100-D: POKES 

4273, 100-DıNEXTD | 

14140 PRINT" CCLEAR  RIGHTT CrAN}HERZLICHE 

NESPACEIGLECKWUNSCHISPACER TI I" 

14150 PRINT"tDOWN2 RIGHT3ISIELZPACEIHABE 

NESPACEIESTSPACEIGESCHAFFT ‚DIELZPACEIFÜOR 

MEL* 


14150 PRINT"{DOHN AIGHTZIISTTSRACEIGERUN 
DEN, DIE{SPACEI MENSCHHEIT LSPACEHBERETTET. 


Kae PRINT“ Sau: zieh ILIISIENEEREE SIND 


es PRINT TOO FF IGHTL4 I >PRESSISPACE)I 
BPACET”" 

141960 GET AtılF Ascı"t5PAceE)" THEN 14190 
14200 RUM 





Und nun viel Spaß mit 
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Dieses Hilfsprogramm ersetzt 
ein oft nur in größeren Compu- 
tern enthalteness Programm. 
Nach Aufruf des Programms 
durch 5Y5 49265 kann mit Hilfe 
der Taste F / eine beliebige 
Programmzeıle vom Bildschirm 
entfernt werden. Ein wertvoller 
Tip für C-64-Besitzer. 


DATA157,124,141,20,3, 


133,198,75,49,234 
# 


REM WIRD DER REST DER 
REM GELDESCHT 


REM FORMAT :ı SY5472853 


Terra 2 meldet SOS - Terra 2 meldet SOS - Terra ? 


alılaı SsoSs- - Terra 2 


'Zeilenlöschen - Ein Kurz-Tip für alle C-64-Fans! 


FORA=49255T0A+34: READB: POKEA ,„B: NEXT 


169,192,141,21,3,96,165, 


203,201,3,208,15,164,213 


REM BEI DRUCK DER <«F7> TASTE 


ZEILE 





mel az 





Retten Sie die Siedlerkolonie von Terra 2 
vor dem drohenden Hungertod! 


Mit diesem Auftrag beordert man Sie und Ihre Raumschiffflorte 
zum Planeten Terra 2. Nachdem Sie sich einen Überblick über die 
dortige Lage verschafft haben, wird Ihnen erst die Gefährlichkeit 
und die Schwierigkeit Ihrer Mission bewußt. Doch Ihnen bleibt 
kein anderer Weg, als Ihre Order zu erfüllen, anderenfalls muß 
| die Siedlerkolonie abgezogen und der unter großen Mühen und 
| Opfern neu geschaffene Lebensraum aufgegeben werden, 





Unzutherniullung: 
Oruckhaus Diaerichs Kıartsel, Fra 
3500 Kassal 


klurtee Sur. 168, 


IMPRESSUM 


mit Terra 2? 


Erschnnungbwalsa: Ersiwerkauhlag won 
HOMECOKPUTER tat Antang des Monats 





Die Situation auf Terra 2 sieht wie folgt 
aus; Das gesamte Gebiet ist von radioak- 
tiven Plutoniumkörpern, die die erste er- 
foleversprechende Ernte bedrohen, ver- 
seucht, Wenn es Ihnen nicht gelingen 
sollte, diese Plutoniumträger durch Ein- 
sammeln oder durch zielgenauen Bom- 
benabwurf zu entschärfen, besteht kaum 
noch eine Chance, die Terra 2-Kolonie 
aufrechtzuerhalten. Ihre Aufgabe wird 
zudem noch durch die unterschiedlichen 
Räumungsegebiete (Krater, Höhlen, Erd- 
spalten und Grotten) und durch die aus 
atomaren Blitzfusionen neu entstehen- 
den Plutoniumherde erschwert. Sie kön- 
nen durch Betätigen der Funktionstaste 
„rl* jederzeit ein Höhlensystem verlas- 


| sen: doch weichen Sie den Hindernissen 
rechtzeitig aus und berücksichtigen Sie 


den permanenten Rechtsflug, sonst hat 
Ihr so prachtvolles Raumschiffgeschwa- 


| "der schnell das Zeitliche geseenet. 


„Obermüller, Sie sollten sich in Ihrer | 
Freizeit sinnvoller beschäftigen. Wie wärs 


Aus lärti Yrdfteribchusg Kata Ace geee 
worden, dad de beschriebenen Lösungen oder Be- 
zeichnungen frei van Schutzzechien sid. 


d. Vekrgun 


Herrcimpitit 

ersehen ie 7 Mansle im 
ee Stad 35, 3440 Eichwege 
ES lelın) 
Hersirgeber: Axel Ende 
Cheiredaklsar: Siegined Gärk 
Ardehties- Hartren ent, Freie unlen 
Öt Ahr ai Sr rulct ı Bernd. Fimmermarı 


36 HOMEcoMPuTER 


Yartılak- 
rd 1GrB-, Eiazal- und Bahnhelsbschkanden 
sw Üslerrelch und Schweiz: 
Verlagsunkas 
Frisdrich-Bargius-Sirade ZU 
52 (ers aachen 

Elan DET SFHEN 
Anzrpanserwaltang eslend}; 
Hartmul Wende, Tronic-Werlag, Postfach, 
3840 Eschwege. Tel. 058 51 730013 
Arteigenleiteng (Artännd]; 
Peekiit Aelstöp |Fertiga Cogeirien]: 
Kante Klimzne, 2/6 Tronic-Werlan 
Posttach IFost Bo a 


A 


[- ei Eschwege, Tel 056 517; SD AH „el 


Anzesjerpteitlinie: 

Bitte Mediauntertgen atordem, — y 
Sallawe-Lerricn end Verbrigb: Anrede Kratpenberg, 
Hai Aal 


Bikelarrechl: 

Ale in HOMEGCHMPUTER verötlentiichten Beiträge 
lad ereberrbchtich geschütrt. Alle Rachte, auch 
ÜBersatzangen, vorbehalten 

Aepebdukiinen peder Art [Folsirageen, Miescdim, 
Erl&stung in Datesveracbestungsanlagen use) be> 
dürten der schriichen Genehmigung des Verlage. 
Abe veröftentlichte Soltaare wurde von Miäirbei: 
tern des Verlapes oder von Ines Mitirbeilem & 


darıqapre! et: Einretheit &,-—- DM 

Abensameetı Äntierd: 

KOMECOABPUTER (6 Heite): 

Euros Aus. 4],- Aubarkunoo, Aus. 60,- 
GekiAbı 

HOMECOMAUTER 051 & GOMPUTROANG 1] 
Eurso, Aul.87,55 Außeraurg. Ati, 120,- 
Alena, Muanehrigle: 

Der Yurlag almımt Mansektiose und Software zur 
Veröffepälichung gerne entongen. Soda keme an- 
dere Yareinbarung getrotfen sonn, so gehan wir da: 
yon aus, da3 53 mit einem Honorar van 120,- DM 
pro abge druchktee Sanie im Heil eimvgrstasden sind, 


Titelkiait; Saaleled Gbrk 
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| 2 Teil EINS 


{ === TERRA 2 =—n 


HEF 
FEH Ts#rsHssarzzzeaen 


REH mmnmiC} Bfea= 
REH =u=PpYAA-EOFT=e=- 
REH smaANReEAGe=== 
REH ==m=5FINDLER==== 
REN e=eHüSsELgTR; des 
REH “4522. OSTHOFEN- 
REH =TEL.0424273370 
25 POKESG 28: POKES2, 28:1 FOKRES4878,, 15: FOKE 
: 34849 „235: POKE34879 ,25 
B ri FORT=SBTO1 36: POKETABES, T:NEXT:FORT=7L 
sET0r7431ı READY: POKET ,YıNEXT 
45 DATALO,65,153,151,161, 193, 658,60 
al DATAAT ES, 69, 99, B4, 84,84,100 
42 DATA15.25.50.100,248,172,192,192 

| DATAI ,66,100,56,48,75,192,128 
44 DATAL5,25,50,100,248,198,194,194 
45 DATALS, 25,50, 100,240 ‚200,200, 200 

44 DATA30,32,48,24,12,24,48,95 


JENA» 


me — mer me me Se: me u u TOT 


soceo 8 ee 0 08 


ee 
| 


47 DATASO,530,99,194,200,200,200,112 
DATAZ1 48, 96,248,192,192,192,192 
49 DATAL27,24,40,96,192,192,192,192 
| 50. DATA0,0,128,64,32,16,844 
51 DATA4,8,16,32,64,128,0,0 
52 MATA2IS, 255,755, 255, 235,295,299,255 
=3 DATA2SS, 255,191 ,63,123,37,25,19 
54 DATA4,30,63,127,127,294,126,24 
55 DATALZ7, 178,748, 196, 198,292,34 252 
DATA255,255,239 231 ,2458,230,226,34 
37 DATASO,24,24,24,60,126, 126,60 
sa DATA2S4,1,139,99,159,3,4,127 
| 5? DATA3S5,51,119,119,119,127,127,295 
\ 50 DATA254,125,62,30,14,7,35,0 
@ | 21 barazsa,i, 31,35,99,53,68,63 
Ä 62 DATAAB, 76,208 ,238,230,239 254,235 
53 DATAO,3,7,14,30,62, 126,204 
N? DATAZ, 6.38, 102,119,127, 255,255 
® ı  &S DATA127,1208,241,142,241,1208,64,254 
| 


® 
& 


> 
= 


Klo 
IEFT 


I [21-1 DATA2SS,127, 125,92,28,24,88,0 
47 DATALIO2,50,24,50,125,125,60,24 

m ı 4 DATAIS2,81,4,184,74,32,69,18 
I 57 DATAB,66,15,137,0,82,0,36 
| ı 70 DATAF4,48,24,12,5,12,24,.48 
rı MTA22,65,73,05,87,085,55,82 
72 MTAO,0,0,0,0,0,0,0 
31 ,300,228, 300,227,300 
74 DATA273,300,219,300,217,300,223,500,2 
I 27,300 ,227 ,400 , 223,300 223,300 
| 75 DATA227 „300,227 ,200 228 ,300,251,300,2 
| .31,300,228, 300,227 ,300,.223,300 
74 DATA219,300,219,300,223,300,227,300,2 
23,380, 219,300,219,300,1 
‚ 180 BOSUB1000: PRINT*CDOHN BIGHTZ BLACKIR 
ı  OCAUARPLE RIGHTS RESONPRESENTS{RIGHTZ BF 
SOFF BLACKIUY":FORZ=1TD30: READT ,LıPOKESA 
&,1NTIRNDI(l)=7)+1 
l 
l 


202 GBETAS: IFAf=""THEN205 
204 GOTO2S0 
205 PRINT" CRFSON DOWN RIENTZIOOOLSAACEHT 
ERRALSPACESIDISPACEIOOOLARLEHT EI" SPRINT" C 
DOWN PURPLE BIGNTIBKRIGHTIALRVSON RIGHT 
BLUEIANDREASCRIGNT. GREENYSPINDLERHPSEN" 
208 POKEIABTA,TıPOKEI4875,TıFORY=1TOL:ıNE 
XTı POKEI4875,0 
215 FORY=1T020:NEXT:ıNEXT:POKESABTA, 0: RUN 
250 POKET4874 0: POKES4879 ‚238: PRINT"{CLE 
@ AR AESON WHITE AIGHTS} mas: 
260 PRINT"CAFSON BIGHT BLACK ArSOrFIROcH 
' HETE AFSOH RIGHTZY | SPACE BLACKITERRALS 
PACEIZIHHITE SPACE) NKEPACE RIGHT BLACK & 
| FSOFFIUVCHHITEN" 
270 PRINTTLRFEON BIOEHTENL  — l" 
282 PRINT"CAFEON DOWN BLÄACK>DRINGENISPAC 
@. EISIELSPALCEIINTSPACEIDIE (SP AGEFI UNTERWEL 
“ .  TESPACEIVONGSPACE)ITERRATSPAGEIZISPACEIVO 
ı RCSPACEIUND{SPACEISAMMELNISPACEIF" 
| 283 PRINT’tAFSONISCHIESSENLSPAGEISIELSPA 
CEIDASCSPACEIPLUTONTLUMISPAGEI TCRPEDFFIDT 
BVSON}I ESPACEIHINFORT SPACE?" 
270 FRINT“CRFSOHIABER SPACEIHUETENISPÄCE 
U ,  +SIELSPACEISICHTALGHTZIVORTErACEI KADTOHK 
TIVEN{RIGNTSYELITZEN,DIECSPACEINEUE CSPAL 
' EIWER-LRIGNTISEUCHTELSPACEI" 
ak 295 PRINT"CRFSOHFHFELSENTSPACEITCRFSOFFIN 
”- ERFSONF)CRIEHTSIPRODUZIEREN! “ 
295 PRINT” (EUEOWIMITCEBACEN>>TSRACEIFITE 
I Pr - re 


"u SrWLatE Ale = 
eh 1m ur) [er ” ei in mil © er 42 - 
N ae nF tim a AFTI 


- 


Juni/duli 'E6 


158} 


“513 
“188> 


48 


er Fu 










Das Listing 


BAGE>< (SPACE >KONMENCRIGHTEISIE CBPAGEINE 

ITER{SP 

300 PRINT" LDONN RIGHT WHHITEILPFPFAPIHIPFAP 

ZMPZIHZHL" 

s10 PRINT“ CRIGHTILIRIGHTE EURPLEINCHHITE 

RIGHTS BEDIOCRIGHTZ PURPLEINCHHITE ELGH 
IL“ 

Fr PRINT" CRIGHTILCRIGHTS REDIDLRICHTS # 

URPLEINCHHITE AIGHTFIL” 

315 PRINT"CAIGNTILCRIGHNTIE PURPLEINCHHIT 

E ALENTIL" 

320 PRINT"AIGHTILVERTBLUEIGLSPACEIATEPA 


CEIBEDEFEHI CHHITEISVEL" 


350 POKE8LO2, 18: POKEB1LOS, 15: POKE38822,0: 
FOKEF9823 „01: GOSUBFFO 
335 PRINT“{BFEON NOHE DOUHS BICHTE TLACK 
PISCSPACEILDADING! {YELLOW UP2Y“ 
410 POKEI4877,127: POREöS1 „131: POFELFO, Li 
END 
770 GETÄt: IFAt="“THENFTO 
9997 FORL=77ABTOB030: POKEL ‚32: NEKT: RETURN 
1000 PRINT"ICLEAR EYSON BLACK RICHT... 
CRIGHTISI 17," 
1100 PRINT-{RFSON AIGHTTIF-CRIGHTI |CRIGH 
TI CRICHF LFI CRIGHTI N 1 /CRLGHTI A" 
1200 PRINT“ CAFSON AIGNTEIFACRLENTI N CHIGH 
TI IERIGHTI FTRICHT IF CRLGHT LO FSCHIGHT INT 
EIGEHTIN I TELGHTIIRIEHTI/NARIGHTEI.NCRIG 
HTW CRIGHTI N CRIGHTY ICRIGHTI FTRLENHTI FALE 
BEI" 
1300 PRINT"LEFSON EICHTEICELGNTI NEIGEN 
TILtRLEHTI 1 FTRIEHTI FCRICHT II" 
1400 FRINT"LAFSON RICHTZICRIGHTINCHIGHT. 
IS tRIGHTICRICHTI | LRIGHTI CRIGHTI A ZCRIG 
HTICRIGHTE BIUE BFSOFFIBERFSON BLACK EL 
GHTYCRIGHTINCREGHTINCRIGHTIN I /TRIGEHTIA 
I CRIGNTIFLRIGHTIDLRICHT4 AVSOFF BLUEICIR 
FSON BLACK RIGHTINGRIGHTINCRIGHTIN RIGHT 
I ICRLIGNTI KSPAGCE) | SCRLEHLIT" 
1500 PRINT"{RIGHTI BLVEIDERFSON BLACK BL 
EHTICRIGNTIHCHLIGNTI "IF bl CRLCHTIMTRLGH 
DIRCAIEHTZ RFSOEFIMICRIGHT BLUEFELAFSON 
BIGHTINCRIGHT I CRIGHT}I ICRIGHTI KARL 
GHT) /KRIGHTIACRIGHTIE CRIGHT4 BFSOFFITECH 
IOHTZ GREENIFIRFEON BLACK AIGHTICRIGHT) 
„1 PERICHTIRLRIGHTIN" 
1600 PRINT"{RIGHTZ AVSOFFIDLRIGHTZ GREEN 
IGtRFSON BLACK RIGHTINCRIGHT} IKAISHTI CE 
LEHTIYCALGHTIOCRIGHT ENSDFFINGEISHTF EEE 
OFFIOCRIGNTZ GREENIHLRFSON BLACK RIGHTIN 
(KRLGHTIPCRIGHTIPLRIGHT AYSOFFINtALIGHTL 
2 GREEN}I" 
1650 PRINT“ RICHTIG UP BLACK RrzonYT" 
1700 FORT=1ST0385TEP-1:POKEFE043, TıNEXT 
ı RETURN 


SIWANUD 


i8 DATAHDEHLE ‚GROTTE,KRATER,ERDSPALTE,1 
20 B=34875: F=30720: P=797ä:Hl=idı H2elSı ae 
18: C=20:LE=15:1 EsBi185: Lie 








35 Ein" (Ar5oh} -ıB# 

ar tSpACE) an CPACE) TERRALSPACEIZISPAGE) «= 

CSPAGEI ": POKEB+F, 25: POKEB+Z, LS: POKER-7,2 

55 

34 PRINT"CELEAR BLACK DOWNB RISHTZIACRIE 
HEIALRIGHTIBCDEFGHLCRIGHTITKAHR AEFTZIWN 
HPRINT"CRVSON BLVE DOWNZ PIANDREA 

SCSPACEISPINDLEREDONN BLACK BIGHT#I"E$ 

33 PRINT"CRFSOH RIGHTIALLTSPAGEIRIGHTSTS 

PACEIRESERVED! BLACK DOWN RIGHT) "ERTPRIN 

T-{AFSOH DOWN RIGHTZIPREBSICHPACE BEPIFIR 

ECBLACK SPAGEI-TSPACEIBUTTON" 

37 PRINT" {NONE DOHN2} "ER" DONWII"ER 

40 F$=RIGHTFIFF, II #+LEFTFIFF, Cl} BE=R ICH 

T#iB#,A-1)+LEFT£IBS, 1) 

41 PRINT"CHOME BIVEI"SFRILEFTSIFF, ZI :PRI 

NT"£ RFSOHI"BSSLEFTECRR „A: IFPEEK I 

371511<>F4THEN4O 

55 A=0, 6=0: Fe" Hi Ege" "Be" GOTDAOO 

40. FORL=75801T076834:1 POKEL, 12: POKEL+F „AıNE 

KT: POKERB+3, 18? 3 

55 PRINT"HONE DOWN? PURPLEIPZMLLLPZHLLL 

LLPAHLLPNIM" 

BO PRINT"{YP SPALEIIMLP SPACE MLLLPISPA 

LEFIMP" PRINT" ESPACESIZISPAGESIALP"IPRIN 

TFtRIGHTLLIZ":FRINT"CDONNT“ 

100 PRINT"CRIGCHTE IKCRIGHTEI  aPRINT" GRIGH 

TSISLVCRI EHTFIK"ıPRINT"{RI OHTS}SLLLVIRIG 


HISISLV" 


<133> “- 


<BF> 0 


<55} BE - 
+ 145> 


“i49> 


4 22 


<107> 
LIE 
<48> u 


<18> IM 
<ib4> | en 


197> 
“134 > 
AL 

<il> a 


<131> 
33) u 


rrhr) 


mn mE 0 mn sad a ee 


130 PRINT"F{RIGCHTSILLLLLCRICHTHISLLLY* PR 
INT" {RIGHTIISLLLLLVWERTSHTZYSLLLLLV FE PRIM 
TFYASLLLLLLLYSLLLLLLLYSK® 

a0 FORL=B14ZTDE: POKEL , 12: PDKEL#+F „Aı NEXT 
1655 FORFI=ITOLE 

170 FE=INT {RNDt 1) #308) +78354 1 IFPEEK (FE)IC > 
32THENI 70 

175 FÜKEFE,14:FOKEFE#F , 41NELT:ıFE=ÖO: FÜREL 
=1 TOLE+10 

220 L2= {NT (ANDI eS505 +70 

230) IFPEEKILIHZ2 = 1 FORPEER (L2+77) =?ZORPE 
EFiLZ+ZFI = 1 40RPEEH {L7-721 =1 4THEN240 

232 IFFEEK ILI- FH JA 0HPEEH (L2+27) =240RPE 
ER {L2=-22) = 1 30RPEEK {L2=-221= 1 ATHEND24O 

235 G0T0220 

Fe) FOKELZ2,17: PÜFEL2+F, ZıNEXT: L2=0:EL=0; 
RETURM 

300 PRINT"RVSON BLUE HOWE RIGHTS) @RSPA 
GEITERRALHPAGEIZCSPACE) ee "PRINT" CAPFSON 
BEACH DOHNITIRE: "TIEF CSPACEISCORE: "INTIE 
Hi: RETURN 

E00 BL=INT {ANDI I #306) +74 IFPEEK (BLICH 
S2THENFOO 

410 T$=eTIfı POKEF7877 0: PÜKEBL „30: POKEBL+ 
Fı F:POKE37077 ,72: TIkeT$ 

5615 FORT=1STOOSTEP-1:1 POKEB+2, TıPOKEB , 220 
+2#T:NEXTı POKEB+2, 15: POKEB,,O 

&i4 POKEBL, 14: POKEBL+F „4:G0OT0F00 

BOG PRINTTICLEARF"ITIES"000000 "rREADHE GI 
FH£="1"THENIS2H 

805 GOBUBSA0H PRINT"HOHE AFSoN DOHM4 RIGN 
IF BEACKITHE 

2700 GOSUBTOC GOSLUBFFFF ; 

925 BI=SINTiRNDiLSeL OÖ) #1: IFBIe 1 THENAOSO 
750 GOTOFOO 

1320. FRINT"IGLEAR}":POKEIFB, 0: IFEH{SOTHE 
NAk="WASSERTRAEBER fSPACEIFUER CRIGHT4)G00 
FYiSPAcE)!* 

1521 IFEH}=BÖOTHENAF=e"SELBSTHOERDER" 

1522 IFEH}=e100THENAF="HECHANIKER" 

1323 IFEH>F=1Z0THENAS="COLSPACEI- CHPACEIP 
IEOT* 

1523 IFEH}>=14OTHENÄF="PILOT* 

1530 IFEH}=L&0OTHENAF="OFFICER" 

1535 IFEH>e1BOTHENÄAF="LEUTHANT® 

1550. IFEH}>=300 THENHAF="OBERLEUTHANT”" 
1540 IFEH>eP20THENAF="CAPTAIN" 

1570. IFEH>=Z40 THENASE-HAJOR” 

1580 IFEH>=FA0THERAF= "GENERAL" 

1570 IFEHI>=PEH THEMASF="BRIGÄADEBGENERAL " 
1575 IFEH>=TOOTHENAF= "COHHÄNDER* 

1400 PRINT“{DOWN AFSONILIVESCHPACEIT "LI 


= 
VC-20 (3K) 


| EEITINTIEHN <57> 
er | 1530 PRINT" {PORN RFSOWNIRAMGESPACE I: TDOHN 
21273 |  FTIPRINT"CRFSOHI"AS <219> 
223 1635 IFH£="1"THENLGSO <10> 
N) 1440 PRINT" DOKN ArSOHIUSEDISPADEITIPEES 
<1955 I PACEIFORCDOHN I" IFRINT" CRFSONI HR" "TI# 2118: 
| 1550 IFLI=Ö0RHt-* |" THEHPOKET5859 , 2740: PRI 
ZaR | NT CBOMKIIRUNGGPI LEFTII "END <129> 
£174> 16560 PRINT" BONN EVSONFPRESSTSPAGEIFIRE 
-BUTTONCSPACEI“ 184> 
‘855 1370 IFPEEK {371311 %€ >74 THENI1 470 213% 
1580 LE=LE+S: P=7974: GO TOBOO <11lä> 
e206> 79997 JI=PEEK {371811 :GETT$ı IFJI=FATHENI 10 
{Aab) Go <11F> 
10020 POEEP, 32: POKEP+1 „32: IFJ1i=122THENP= 
<137> P-22 “03 
100350 IFJi=124THENF=SPf+ 1: Hl=1Bı HZ=e1 5 <170> 
100406 IFJi=L1OTHENF=P-1ı1Hie2l: H2e3g u 
10042 IFJ1lel18THENFeP+22 405 
2765 10050 IFT£="{FI})"THENISZO ri 
19100 IFPEEK IPI=1 TORPEEK (Fr 1) =17THENEH=E 
9305 HZ: 60T011210 75 
10105 IFPEER {P] © >320RPEEHR {P+1 1x >32THENL2 
d 125% ara] a de 
16116 POKEP Hi: FOKEFP+1 „H2ı FOKEF+F „OÖ: FÜKE 
178% P+1+F ‚Or PFOREB+1, 155 Chr 
553 10120 POKEB+1,O:RETURN €142> 
11000 EH=eEH-, 5: FüRS=P+22 T0E-445STEF22: IFP 
191 EEK (5+22) € >IZTHENSL=SLUH 1 c45> 
11010 FORTY=1T010: PO&KEB, 127+12#TY: POKEB, 
<105%> Ü:MNEILT ee 
204) 11120 IFSUe3DRPEER 15} = 1 ATHENSU=-0: GOTDL 12 
Er > 20 E2ar7} 
<B> 11150 IFPEEE TS+HZ2)e 17 THENPORES+2Z , 3Z21EH= 
EH+3: 601011210 24975 
112060 FOEESE,27:FPO&E&+F ‚4+FORTY=1TO107 POK 
eiBä> EB,127+12#TYıHEXTı POKER, O0: POKES , 321 NEXT: 
<11> | 11210 FORT=11020: FOKER, 230: FOKEB „0: NEXT: 
RETURN “158 > 
2% 11220 FORTY#20TD. STEP-. 8: POREB+2,TYı POKE 
<873 B+1,127+6*TYı NEXT:POKEB+2, 15: POKEB*+1 ,O:R 
air, ETURN c2l> 
<17B} 120270 FÜKEF+F „Oo: FÜREF+F+1 OÖ: POKEB#+1 „220: 
<187> FORYT=15TO05STEP-. 8: FOFEB+2 ,YT:POKEF, 20: PP 
270% OKEF+1,28 <185> 
£140> 12022 FORTY=1T080: NEXT: POKEP „29: POKEF+1, 
FRE 27: FORTY=-1TOBO:NEXTTY„YT «156 > | 
272% 12025 FOKEB+1 ,.:POKEB+2,15:L1=L1-1:POKEP 
<2g> ‚Ser FOREF#+] „32:1 P=7976: IFLI=SÖTHEN I 520 136 > 
<109> 12040 RETURN “197 > 
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1620 PRINT"CDOFN AFSöOH}SCORE tSPAGEIT SPA 
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Doppelter Spielspaß in einem Programm 


Pac-Ball bildet eine Kombination aus einem Flipperspiel und einer 
Abwandlung der berühmten Pac-Man-Version. VC-20-Besitzer, die 
die spielerische Abwechselung lieben, kommen bei diesem Pro- 


3E HOMECOMPUTER 





= gsrammbeitrag voll auf ihre Kosten, 


Zu Beginn des Programmes erfolgt eine 
hervorragende dreidimensionale Dar- 
stellung eines Flipper-Spielfeldes. In die- 
ser Ebene müssen Sie versuchen, die 
Flipperkugel in ein zentrales Feld der 
Spielfläche zu bugsieren. Ist dies gesche- 
hen, werden Sie schlagartig in die zweite 
Ebene, in die Pac-Man-Version befördert. 
Hier gilt es nun, die im Labyrinth verteil- 
ten Punkte möglichst schnell zu vertil- 


gen. Achten Sie darauf, daß Ihnen bei die- 
sem Unterfangen das Monster nicht den 
Garaus macht. Gelingt es Ihnen, die 
„Punktefresserei* schadlos zu überste- 
hen, werden Ihnen Bonuspunkte gutee- 
schrieben. Sollte Sie das Monster „verna- 
schen“, befördert Sie Ihr VC-20-Compu- 
ter wieder zurück zum Flipper-Game. 
Die Steuerung erfolgt über die Tasten „1* 
und „CLR Home“. 


PAC-BALL erspart Ihnen den Weg in die Spielhalle! 
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"Halten Sie bei Pac-Ball unbedingt die Flipperkugel i im Spiel 


i POKE36879 251330: TA=5 

2 Dtm" (SPACEA)BYCSPACES)D. SPACE) SOHINGE 

RAR” 

, 5 PRINT"CELEAR BLUE DONNZ AVSON> - CRIGHT 

3 m [RICHT lRIEHT3I seRFEOFFIMTRFSOH BIG 
HTI m CRIGHT BFSOFEIETEIGNTEIR" 

' 5 PRINT{AFSOHI " CRIGHTI = LRIGHT ENSDEE) 


' IRIGHTS AVSON) CRIGHTI = CRIGHT RESOEFS 


LÄRIGHTZIR" 

7 PRINT" CRIGHTZIE CRFSOHM LAFSOFE AIGHT} 
LCRIEHTE AFSONI „KBFSOFFI LEICHTE TEFEUN 
LIRFSOFE AIGNTITGALSHTEIT® 

a PRINT"ICRIGHTZIT CRFSONIE CALGNTI TCRFSOF 
FimtElGHT3 RYSOHI SeRICHT RVSOFFIR TRESOH 
IE CRIGHTI FIRNSOFFImtRICHT, AFSON) "CRFSOFF 
Im“ 

# PRINT"(GACEN DOWN2 BIGHTFIFLIPPERLDOHN 
10 LEFTISIDATENTSPACEIWERDENTSPACEIGELAD 
EH" 


10 O$=RIGHT#(0#,20)+LEFTFTOF, 1) 

11 PRINT" IHONE BED BONKL4I"DE 

13 IFS=1THENFO 

14 IFS=2THENSS 

15 IFS=3STHEN203 R 

55 POKES1 ‚OrPOKES2, 28: FOKESS „01 POKESS „28 
ıC=7168 

70 READA: IFA=-1THENS? 

75 FORI=0107: READB: POKEC+ArB+1 ,BıNEXT 

30 8=1:60T010 

52 C=716d 

85 READD: IfD=-1THEN200 

90 FORI=OT07: READE: POKEC+D=B#+1 „E:NEIT 

75 5=2: 607010 

100 DATAO,0,0,1,1,3474,7,15 

101 DATA1,50,254,2355,231,231,255,254,254 
102 DATA2,31,31,63,127,124,232,240,96 
103. DATA3, 252, 240,192,128,0,0,0,0 

104 DATA4,50, 127,235, 231.,231,255,127,127 
105 DATAS,0,0, 128, 128,192, 224, 224,240 
105 DATAA,53,15,3,1,0,0,0,0 

107 DATA7,248,240,252,254,126,63,15,& 
108 DATAG,0,0,3,127,235,255,127,0 

107 :DATAF,0,15, 235,255, 255, 259,299 ,63 
116 DATA10,128,128,128,64,64,64,32,32 
111 DATALL,32,18,16,14,8,8,8,4 

112 DATA 244,442, 2, 24 lulsl 

113 DATAIT, 1, 141422 Zr 

114 DATAI4,4,8,8,8,15,16,164,32 

115 DATA15,32,32,64,64,64,128,120,128 
11& DATA16,0,0,192,294,295,259,254,0 
117 DATA17,0,240, 255,255, 255,233 ,255, 232 
118 MITA, 141,143 747 | 

120 DATA2O,63,63,127,127,127,295, 255,255 
121. DATA2L,0,0,0,0,0,126,126,0 

i22 DATA22,0,95,96,96,76,96,96,0 

123 DATADS 255,254, 252,248, 240,224, 192,1 


ı24 DHMTA2A 255,255, 255,255 ,235 ,,2523,255,2 


125 DATA2E,A 422211 

127 DATA27,233,7,0,0,0,0,0,0 

128 DATAZU 255,235, 255,63,31,7,3,1 

129 DATAZF,1,141,3,3,34, 7,7 

1350 DATASO,7,15,15,15,31,31,31,63 

131 DATAS1 255,254 ,252,248,240,224,192,1 


132 DATAS2,0,0,0,0,0,0,0,0 | 

133 DATAS3,63,52,124,120,112,224,192,128 
135 DATAZS,&0, 124,109, 195, 255,255, 126,60 
i3& DATAS&A, 128,128, 128,192,192,1972,224,2 


137 DATAST, 224 ,240,240,240,248,248, 248,2 
138 DATASB „252,232 , 254 254,24 ,253,.2554, 2 


137 DATAFF,14347415,31,63, 127,25 
140 DATA40,128,192, 224 240,248,252,254,2 


141 DATA41,192,240 252, 255,293,295,255,2 


142 DATA42,0,0,0,0,192,240,252,255 

143 DATAA3,0,3,7,7,14,14,280,28 

144 DATAM4,.55,54,.112,112,224,224,192,0 
145 DATA45,0,192,224,224,112,112,55,56 
145 DATA45,28,29,14,14,7,7,3,0 | 
147 DATA47 0,255 235,255, 255,253 ,255,255 
148 DATA-1 

149 DATA4B,0,0,0,0,0,0,0,0 

150. DATA49,0,0,0,0,0,0,0,0 

1SıD DATASO 1010, 24 3380,60 24,0,0 
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152 DATASL,O, 50,65,129, 189,255, 125,50 
153 DATAS2,24,60,125,233,24,24,24, 54 

154 DATASS. 24.24.24 ,24 255, 126,40,24 

155 DATAS4,8,12,14,253,255,14,12,8 

155 DATASS, 16 ,49,112,2595, 235 „112, 48,14 
157 DATAST, "0,56, 116,126, re 112. ‚4,0 

158 DNTASE,0,0,0,24,24,0,0,0 

159 MTASE,0,28,45,126,6,12,28,0 

150 DATAS7,0,15,48,02,118,125,60,0 

161 DATALOr0,50,1265,118,82,48,15,0 

152 DATA51L,0,40,70,125,102,125,70,0 

ıi79 DATA=-1 

200 6=3 

2041 PRINT"CHOME GREEN DOWHIF SPACERIDATE 
NISBACK REDYSINDISPACE GREENIGELÄDENISPA 


Er IFTA=STHENFRINT"CHONE BLUE DOWNZI SP 

ACESITSPACEITASTELSPACEN >" 

>04 IFTA=SLOTHENFRINT"CHONE DOWN2I SPACEI 

5)": TA=0 

205 GETT£EFIFTFe" (SPACE) THEN21S 

210 TA=TA+1:FORrl=1T085: NETT: GOTD10 

215 PRINT"CCLEA® GAEEN DOWN4 RIGHTFIPAC- 

BALLTDOHN LEFTFemmennnnnn" 

220 PRINT" CDOHH3 AIGHTIO BLUEIBY“ 

225 PRINT"COOHNI RIGHT BEDIOLIVERTSPACE 

IS0OHINGER"” 

730 PRINT"{DOWN# RIGHT BLUE SPACE} INSTRU 

KTIONISPACEIIEL RVSONHILRVSOFFIFCRFSOHINE 

RESOFE}>" 

235 BETJSı IFJEe"J"THENZBO 

240 IFJs="N"THENZ2SO 

245 GOT0235 

230 PRINT"ICLEAR GREEN DOWN ALGHTTIPAC- 

BALLCDONWN LEFTP)smmuzmanme! 

255 PRINT"CDOWN2 BLUE SPAGEIICHLSPACEILA 

DE{SPACEINIETZTISPÄCEIDEN" 

250 PRINT"{DOWN2 SPACEIZWEITENISPALE}ITEI 

EL{DOMW)" 

270 FÜRE531 , 131: POKEL 9GB, I ERD 

260 POKEF6B47,255 

92 PRINT"LELEAR RIGHT GREEN EFSOHIPAC-B 

ALLCSPACEIINSTRUKTIONCDOMN LEFTI]Jesennn 

aAanamzzzzzummeem! 

293 PRINT"{OGHH BLUE BrSoH}PAC-BALLCSPAC 

EI TSTCSPACEYEINTSPACEISPIELLBOHKIFUERTSP 

ALEIFLIPPER EGPÄCEIFREUNDE. 

290 PRINT"{DONN RYSOWIDASLSPACEISICHTSPA 

CEINURCSPACE)DADURCHTSPACEZ DOHHIUNTERSE 

HEIDET SPACE) DASTEPACEIWENNIDOHN} DER [CZ PA 

BEI BALL CSPACEN INCSPACEIDIEBESESBALEN KCRK 
SOFFISCRFSON}) " 

295 PRINT" CRFSOHILOCHISPACEITRIFFTESPACE 

ISICHLSPAGEIDASTSPACE? BONNIBILDISPACEIV 

ERAENDERT tSPAGEIUNDESPACEI DOHNIAUSISPAE 

EIDEHLSPACEIFLIPPERTSPACEHEINISPACEI" 

z00 PRINT"{DONN RYSONFPAC-MANLSPAGEISPIE 

LISPACEIWIERD. " 

305 PRINT"CDOHN RFSON SPACEIS REDI>>HCHO 
nl.) 

a GETAFı IFAS=" (SPACE) "THEN320 

315 BOTOF10 

320: PRINT" CDOWN4EN" 

322 POKE36849 ,240 

323 PRINT“CCLEAR SPACE GREEHIBEBIENLUNGS 

ANLEITIM {DOWN l EFT [J}2=20susannzazzomnnen 

u" 

320 PRINT"CELUE DOMNZIDIELSPACEISTELERUN 

GISPAGEI IST LERACEIGANZ TOOHNDENFACHTZRACE 

4," 

335 FRINT"(DOWN SPACEZIRECHTERTSPACEISCH 

LAEGER{SPALCE}: CS FACEFIELRISPACEIHONE" 

340 PRINT" CDOHN SPACEZILINKER TSPAGEZISCH 

LAEGERTSPACEI: LSPAGEFITASTELSRACEIL." 

345. PRINT“ COOWNIBEIMESPACEIPACE-NÄNISPRACE 

IBPIELTSPACES DOWNIWIRDESPACEINITISRAGEI 

DERTSPACEITASTELSPAGEILKSPACE2 DOWWIDIET 

SPACEIRICHTUNG SPACE) DES CEPAGEIPAC-" 

350 PRINT"<DINNIMAN'SE IAUSGEHNAEHLT" 

355 PRINT" EDOMMIUNDLSPAGEIMITCSPACEIDERE 

T BEDIY>>CHOMEr“ 

340 "BETBE: IFBS=" (SPACE "THENITO 

745 GOTOF40 

370 PRINT"LDOHHSEI" 

375 PRINT"{CLEAR SPACEI GREENIBEBIENUNGS 

ANLEITUM DOWN £ A FT IF et | L T- poi bemeferemereg- ie) ] | 

au 

360 PRINT*"CDONNZ BEUEICLRSPAGEIHOHELEPA 

CEITASTE (SPACEIWIRDISPACEI DONN’DERTSFAR 


EIPAC-MANLSPACEIIN{SPACEIDIESPAGES DOWN 
JENTSPRECHENDETSPACEIRICHTUNG" 
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<Bb> 
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u 0 u en 
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03 PRINT"BEREGT." 

390. PRINT"CDOHHSE RIGHT BLUE SPAGEINDCHIS 
PACEIEINTSPÄCEIMÄHLTSPACEIS SRFSONIJCAFSO 
FEIFLRFSOHINCAFSDFF) >" 

395 60702353 

Sa76& REM 

597 REM 

3970 REM 

5790. REM 

All REMSSsssSsHaeenn 

401 REM#® 


[@ | ss ram vo ——— u = vr ı 








430 REM» 01.03.1984 
#51 REM» 


" 
| 
# 
[7 
420 REM# 55577 Haas 
m 
#+ 
1 
455 REfesesassenkanan 


19 GOTD1400 

45. G=1118C=0: T=T4074: Pade Pleür BAeT 
4b POKESA869 255: POKESAB7F,FA 

>30 GOSUB110: E0SUB1000 


&0 POKES4878,18 

105 6070137 

110 Aum"cHonE WHITE DOWMIS RIEHTTIDDPL 
ET3 BOWNI00" 2 
115 Bei="{HOHE WHITE DOWNIE BICHTITIHIAG 
EFTZ DOWNIOO" z 


120 C#=" (NONE MNITE DOWNIS RIGNTTIDEXSPA 
CE DOWN LEFTIIFGE Jant 

Ur RIGHTZ SPACE DOWN 
125 De="IHONE HHITE DONNIO RIGHTAIVEDOHN 
LEFTIVIDOHN LEFTIVEDONN LEFTSIVCDONN LE 


EIIVIDOWN LEFTIV" 


Dr HOME HNITE BouNıs RICHTS»UUcRIG 
135 FE=TCHOWE HNITE RVSON DOHNIT AIGKTIA 
a" 
137 Höm"CHONE HHITE DOWN? RIGHTIS 
BONN LEFT SPACE DOWN LEFT SPACE)" 
sd RETLRM 
= GOSUBSOO 
140 REM 
150 IFPEEK (B+A) =I2THEN AO 
155. GOTOSSAOH 
154 GOTO1SO 
130 POKEB, 32: BeB#+A: Bi=HBi+A 
155 POKEB,SO: POKEBI ,1 
20 IFPEEK {IFTI=OTHENPRINTAS 
203. IFPEEK{197)=B2THENPRINTOS 
210 IFPEEK (197 )e54THENPRINTOH 
220 IFSCHYTHENS=1O 
#23 IFSC>9P9THENSEG 
230 IFSCH999 THENS=G 
235 IFSEC>99997 THENS=?7 
240 IFSCHPFFIOTHENLSSO 
255 PRINT“ CHOHE WHITE RYSOH DOWE2)*EPCIS 


260 PRINT"CHOHE BPSON KHITE DOWN2" BA 
300 GOTO140 | : 
310 X=1INTiIRND{LI“B) +1 


315 IFX=-1THENde23: 60700156 


20 IFX=ZTHENA=21:G0T015& 

„as IFi=3THENA=-2735: 6070155 

330 IFX=4THENA=71:G0T0154 

455 IFX=-STHENA =1:G0T0154 

340 IF&=&THEHAs-1: 6070155 

545 IFi=7THENA=22: BOT0154 

350 IFY=BTHENA=-27: GOT015%& 

355 GOTO310 

460 IFFEEERIB+A}=48THENBA=BA-1: POKEB,32ı6 
OTOs2S 

+63 IFPEEK (B+A}=2 | THENSC=SCHSO: GOTO41O 
370 IFPEEFR (B+A) 22 THENSC=SC+H355 : BOTO400 
375 IFPEEK (B+A)=49 THEN: FOKEB ‚32: B=8070:B 
1=39790: POKEB , 501 A=21:60T0150 

376 IFPEEK (B+A) =ISTHENSCHSCHS:GOTOA4IO 
»’8 IFPEEK (B+A)=S1 THENPOKER „32: PRINTFF:G 
UOTO1200 

Sao IFPEEH (B+Al)=43THEN4?7O 

385 IFPEER (B+A}=43THEN42O - 
>#06 IFPEEK (B+rA)=4STHEN42O 

395 IFPEEK (iB+A) s44 THEN4FO 

>97 GOTOZ10 

400 POKEB , 32: POKEB+A „50: POKET „1501 FORI=1 
TISCH NEXTıP=P+j 


EN 





(EPACEYACHHITE SPACE REDDK“ 


405 PÜKET OÖ: POKEB+A, 32: B=B+1:Bi=Bl+LıPOk 
EB, 50: A=1 

“405 IFF=6THENF=0: PRINTDE 

407 GOTOL&OÖ 

410 POKEB,S2:ı POKEB+A „50: POKET ‚150: FORI=1 
T0S0:NEXT:Pi=Pi+1 

415 POKET „oO: POKEB+A , 32: B=B-22: Bi=Bi1-22ı P 
OKEB 50: A=-22 

415 IFPi=4THENFI=0:PRINTEF 

417 GOTOis&O 

420 POKET ‚190: FORI=1 050: NEXT: POKET „0:60 
170310 

425 IFBA=-iTHENIGOO 

#256 PRINT" CELEAR DONNE RYSON HHITE SPACE 
IDERCSFACEIBALLCSPACE) ISTTSPACEIMERTSFAE 
Er! i 1 i iM 

#27 PRINTTARDHN? BESON SPACEFIATASTE>" 
428 GETWF: IFWE=" SPACE)" THENATO 

427 GoTOa2B 

450 GOTOL470 

500 POKEB13F, 50: FOR1=1T040: NEXT:POKEB1IF 


505 POKEB117,501 FORI=1T040: NEXT: FOKEB117 
510 POKEB0974 ‚50: FORI=1T040: NEXT ı POKEBOF4 
315 POKEBO72,50:1FORI=1T040: NEXT: POKEBOTZ 
520 POKEBOSO, 50: FORI=1T0401 NEXT: POKEBOSO 
s25 POKERO?T SO: FORI=1T040: NEXT: POKEBOZT 
530 POKEBOCS, 50: FORI=1T040: NEXTı POKEB003 
535 POKE7983,50: FORI=1T040: NEXTı POKE7FBS 
540 POKE79I50,50: FORT=1T0401 NEXT: POKETFAO 
545 POKE?938,,50: FORI=1T0401 NEXT: POKE7I38 
550 POKE7F15,50:FORI=1T040: NEXTıPOKETF1G 
535 POKE7873,501 FORI=1T0401 NEXT ı POKETBFS 
j60 POKE7871,504FORI=1T040: NEXT: POKEFBTI 
565 POKE7849 50: FORI=1T040: NEXTIıPOKE7TB49 
570 PÜKE7824 ‚50: FORI=1T040: NEXT:POKETR2& 
373 PORE7BO4 ‚50: FORI=1T040: NEXT: POKE7B04 
580. POKET7780 ,50: FORI=1 10401 NEXT: POKET7BO"' 


505 B=7780:B1=-38500: A=-1 

&05 PRINT" CHONE AED DOWNT BIGHTISINCDONN 
LEFTINCDOWN LEFTIO“ 

s10 RETURN 

1000 PRINT" CELEAR MHITE SPACESIRRRSHRN 


1015 PRINT" CRFSONIBALLCRFSOEF SPAGEZIKKH 
KAXKKK" 

1020 PRINT" CRFSON)"EBAI"LRFSOFF SPACESIK 
tSPACET}IX” 

1025 PRINT" ISPACESIEKTKIKIEE" 

1030 PRINTTISBAGES BEDIIKKCHNITE SPACES 
BER>LNE" 

ie= PRINT" ISPACESI* CSPACEI HHITEIRLSPA 

CE4 BEDIY“ 

1040 FRINTECHRE (F1} * CEPACE#}KCRED) | SPACE 
& HHITEHBISPACETIWISPACER BEMIT" 

E07 PRINT EZRACE# BEDIMCHHITE SPACEIT & 

y" 

1090 PRINT" ISPACES REDINCHHITE SPACEIT R 
ERJR” 

1035 PRINTCHR# (FIN CEPAGETIKCREDIOTSPACE 
#t BHITEI+TEPACEI- SPACE BEDIL" 

1050 PRINT"LSPACEI REDIRCSPACESI "CHREIFI 
I"KCHHITEI  TEPACEI . LBLACKI "CHRELFIR"KLRE 
D SPACESIJCHNITE SPACE REDII" 

1065 PRINT" CSPACEI AEDISLSPACEA MHITEIME 
SEAGEHSTSRACEIHWERED SPACEZIKCHHITE SPACE 
REBIK" 

1070 PRINTCHRSLFLI" CSPACESIREREDITESPÄCE 
LIILIMHITE SPACE REDIL" 

1075 FRINTTTSRACER BEDIRIHPAGEIF BEDIICH 

HITE SRACE BEDII" 

1080 PRINT"ISPACES BEDISTSPACEISIKCHHITE 
SPACE REDIK" 

1085 PRINT" CSPACE2 REDITESPACEISILCHNITE 
EEAcE L" 

1090 PRINT“ {SPACE IRKIRLSPACEL II IEL 

JTE SPACE BEBII” 2 = 
1075 FRINT"ISPACE REDISKKEEKIKSPALESI IH 





Juni sul 


= a a ea re ee 


1100 PPRINTCSPACE BEDITE IPAC- 
REDYKCHHITEIDELS PACE3 IBALREDIMLE 

TEE "BiHHITE SPACE REDIL" 

1105 PRINT"RXXXKEXCHHITEIFGISPACEFIBETRE 
SPACE" RREIHNITE SPACE REDIN“ 

1110 PRINTSCRPEDN BHITE> BALL CRVSGEE RED 
IKK LOOOOOO"KKKASCHHITE SPACE BEDIK" 

1115 PRINT-TERKKKKKLLSPACEII NUR" 
1120 FRINTTIFFFFFTFF FF FR FE FE FF FAHOHEI" 
1125 PRINTDF,EF 

1130 PRINT"CHOHE KHITE RFSON DOHNZI "SPC ı 
SI;5C 

1190 RETURN 

1200 POKEST&B79,42 

1205 FORL=1T07 

1210 PRINT"CELEAR MMITE DOWNITI"IFORFeLT 
O1S: PRINT" CRFSOHHPAC-BALLCHP LEFTT RYSOF 
F}";1NEXTF 

1215 FORI=1&0102004 POKET „I: FOKET+1 , 1-20: 
NEXTI:POKET ‚OÖ: POKET+1,O: NEKTL 

1250 POKEIAB4F ‚255: POKET6879 ‚FA: B=7847:0 
1=78395: C=e1ıC1=37: A2=561 Pl=0 

1252 Ise"CHOHE DOHHZ RIGHTI BEDISTDOHN L 
EFTZIFISPACE HHITEIGERED DOWN LEFTFIS" 
254 Jet DOWHZ RIGHT BEDISCDOHN L 
EFTZITISPALEIGLHHITE DOHN LEFTZIS" 

12 nn BENE EUHNE RICHTZ REDIAKDOHN £ 

EFT2 MHITEYT{SPACE REDIACDONN LEFTZIS" 
1259 L4="cHöHE DOWHZ BIGHTE HHITEIATDOHM 
LEFTE BEDITIHPALEIGLDOHN LEFTEIS" 

1250 PRINT"CELEAR BEDYNKEKKERKHENKKENKKEN 
KENK® 
1765 PRINT" CU) KCSEACESI KCHHITEIBBATBED> 
KCMMSTE  EREBEREHEREBEIEHENEN € 

1270 ee AT, YECH 
HOLREDIKCHHITEIBLREDIKCH HITEIGLREDIKNNKN 
XLXLCHMITEIBCHEOIKE" 

1275 PRINT“LUPIKESPAGEHTISPACE HHITEIGCR 

ED SPACEIKCHNITEIBLREDIKCHHITEIBCREDIKCH 

HITEIBCHEDI KCHHITE)BRBBBB LAEDIKCHHITEIBT 

BEDIE" 

1280 PRINT“ LLUPIKLSPAGEPISCHPACEZIKCHHITE 
IBLBERIXCHNITEIBLREDIKCHHITEIBCHEDIKCHHL 
TEIBCREDIKCHNITEIBLREDIKKCHHITEIEREDI KL 
HHITEIBCREDIK" 

1285 PRINT"CHPIKESPACESIRCHHITEIOTCREDI KT 
UHITEIBCREB}KLHNITEIBLCREDIKCHHITEIBTRED) 
KCHHITEIBBCREDI N CHALTEIBERERI X CHIITEIGER 
EDIK" 


1270 PRINT CHPIKKKKHRKCHHLTEIGCHEDI CHR 
TE}BBBTREDIXHNNITEIBEREDIKKCHHITEIBOBCRE 
DIKCHHITEIBLREDIK" 

1295 PRINT" CUPYKCHMITE)FOSBBBBLCREDIKCHHT 
TEIBOLREDPIKKKINHITEIGCHEDIKKCHHITEISTAEN) 
KAKCHHITEIBCREDIK" 

1300 PRINT"CUPFKCHHITEIBLREDIKKIKEERK THAT 
TEIGBBBBBLREDIKK CHNITEIBBEBBECREDIK" 

1305 - PRINT" CUFIKCHHITEIBCREDIFCNNITEIGHE 
BBBSLCAEDIKCHHITEIBLREDIKCHNITEIBTBEDI KG 
EuITEN BCHEDYXCHHITEIBCREDYKCHHITEIBCHED) 


1510 PRINT" CUPFKCHHITEIBCREDIKCHHITEIBER 
EBIKKKKKKKCHHITEIETREDIKCHHITEIBCREDIKCH 
HITEIBBLREDIKCHNITEIBLREDIKCHHITEIGCRERD) 
4 


1315 PRINT"{UPIKCHHITEIBLREDIKCHHITEIBER 
ERFÜCKKKCHHITEIBBBLREDINCHNITEIGLBERIN CH 
HITEYBCREDI KK CHHITEIBERED) X CHHITEIBCRERI 


1320 FRINT"£UPIKCHHITEIOLREDIKCHHITEIBBB 
BBBECREDIXCHHITEIBLREDIKCHHITEIBBBEBELRE 
DIXCHNITEIGLREDIK" 

1325 PRINT" CUPIKCHHITEIGCHEDIKKKNKKK CHI. 
TEIECREDIKCHHITEIBTREDIFRRKKKEKKCHHITEIBT 














HEDI%E" 
1330 PRINT" (UP) KCHHITEIBBBBBBBSOLREDIKCH 
HITE}BBRSGBRBBBLRENIK" 


1339 PRINT“ CPI II IC KICKER EEK" 
1340 PRINT"{SPACES WHITE RYSOHWIPACLSPACE 
I-{SPACEIBALLCRFSOFEN" 

1330 IFPEEK (B+A)=I20RPEEK (B+A) =SATHENLT& 


IFPEEK {B+A} =SF9ORPEER (B+A) =S7THEN147 
IFPEEK [B+A}) =S80RPEER (B+4) = 0 THEN 147 


GOTO1300 

GOTOLSSO 

IFPEEK {B+A) =32THENAI=32 

IFPEEK {B+A) =S6 THENAL=SA 

 POKEB, Azı BeB+A: AZ=Alı POKER, 61 
IFPEEK { 197) “O THENR=A+ 1: 50701410 
IFPEEK { 197) 42 THENL440 
GOTOL1TSO 

IFR=1 THENE=1: C1=S7: PRINTIS 


EEE 15 = 


Juni/duli '86 


„Irre —n =— = 


“92 > 
73» 
<49> 
2a7> 
«1225 
<215> 
Fl> 
<56> 
<50> 
<42> 
er de 
a 
(253) 
‘14> 
<16> 
4125 > 
<B> 
1745 


cal> 


e2i> 


2057 


we 


er -P 


“104> 


<1975 


1577 


118> 


el 


189) 


<Bl> 


1317 


143> 
Aare 


<z211> 
205 
<176> 


in 
£130> 
1333 
185> 
BA} 
“153 
er ie 
<105> 
i1I7> 
240% 


en | 2ER Zu 


Sze mıu4 


| IFR=ZTHENC=22:C1=60: PRINTIS 
IFR=-ITHENC®=-1:C1=5B: FRINTKF 
IFR=4THENG=-22; Ei=37: PRINTLF 
IFR+STHENR=1: 60701410 

1435 60701330 

' IFPEEK {B1+C) «T20RPEEE t{B1+C})e54THENI 


5 BOTO1F50 

1450 IFPEEK {Bi+C)=SATHENSC=HSCHIO:N FORET „1 

=04 POKET „O1 Pl=Pi+*1 

1452 IFPle141 THENLSIO0 

1435. FOKEB1 „32: Bi1=B1+C 

14540 POKEB1,C1 

1455 GOTO1350 

1470 FORL=1T0100: NEXT 

1475 FORI=-14010200: POKET „1: POKET+1 „I-20: 

NEXTI=:POKET „OÖ: POKET+1,0 

IFSC>FFTHENSeF 

IFSCHFFFTHENE=B 

IFECHFFFFTHENS=? 

IFSCHHFF99FTHEN ISO 

FeüıPil=o 

1495 G0T050 

K=INTIRNDEITaA) +1 

IFX=1 THENA=1:1G0T013350 
IFX=ZTHENA=-1:60701359 
IFX=3THENA=22:1 GOTO1 350 
IFk=4THENA=-22: 607013590 

; GOTOLSOO 

POKRES5B7F „127 

; FORL=1T013 

1540 PRINT"CCLEAR DOWNMIS BLACKI":FORF=1T 
DUZSERTAT, tAFSOH}SUPERCSPACE)I BONUSLUP LEE 

FTio | F}"jENEXKTF 

1545 FORTSZSOTDZAOLPOKET, Iı FOKET+1,1-100 

HEXTI: FOKET ,O: FOKET+1, Os NEXTL 

1350 SC=SC43000: POKESSBTI ‚FA BOTDL ABO 
1540 POKES2849 240 

1563 PRINT"ICLEAR DOWN MHITE SPAGEIDUCE 

PACEIHABTTSPACEIDENGSPÄACEIFLIPPER" 

1353. PRINT" {DOWN ARISHTSIGETILTISPACE}! 

MIFTSPACE) "{SNWIFTSPACE}!" 

1573 FORL=11025 

1375 FORI=23070246: POKET , I: POKET+1 „I-10: 

NEXT IıPOKET „OÖ: POKET+1 „OÖ: NEXTL 

1578 FRINT"CDOWN4 SPACEINDCHISPAÄCEIEINGS 
PACEISPIEL" 

1577 PRINT" DOHN RIGHTISI<CAMSONIICRWSOR 
EI FERFEONINGRKEDEF) >" 

1580 BETZ#1I IF2#="J"THENRILMN 

1585 IFZ$="N"THENEHD 

1570 GOTO13B0 

14009 FA=d: Hei: Hi=3d: Fi=144 

1602. POKEFEBST „2401 POKEI4879,FA 

1405 PRINT CELEAR DORıtE: RIGHTT. BEBIPAC-B 
ALLTDOMM LEFFF FEEsE =" 
1510 PRINT" DOWN SıFliSPAGES REDI= 
LHHITE SPACEZISFIELTSPACEIBEGBEN" 

1615 PRINT"CDOHN RICHTEIFRCSPACER BEDI=L 

HNITE SPACEFIFÄRBELCSPACEI TBLKI" 

1625 PRINT" CDOWMM RIEHTPYFACSPACEP BEDI=L 

HHITE SPAGERIFARDE CHRACEI BLU" 

1540 PRINT" CDOWHI AIGHTIICURSORTZFPACEIKO 

NTROLLE* 

GETAFı IFAg="{ Fi} "THEN4S 
IFAg="{F2}"THENFA=B: F1=144: 60701402 
IFAg=" {F4}3 "THENFA=1 101 F1e31: 6070140 





IFAg=" {DO4H 3 "THENHI=HL#+1:6G0T01480 
IFAge" {HP} "THENHI=HI-1: 60701870 
IFAS="{LEFTI"THENH=H-11 860701570 
IFAt-" CAIGHT} " THENH=H+1: 6OTO1590 
IFH=STHENH=eH#+ 1 

IFH=18THEHFH=H= 1 

IFHISSOTHENHI=HI-1 

1705 IFHL=3OTHENHI=HI+1 

1710 POKEI5B54 ‚Hı POKE34845,H1: POKE348797, 
FA:GOTO1550 

1800 PFOKEI4879 ,B: POKEI&B4F „2401 F3=1ıPRIN 


T"CGLEAR}" 

1802 PRINTCHRSIFZI "CHOHE DOWHS AISHTSIGA 
HEISPALEIOVER" 

1803 PRINTCHRE LFI "CRICHTEIGAHELSPACEIOV 
ER" 

1804 FRINTCHF# IF2} " CRIGHTFIBAMELSPACE IOV 
ER" 

1865 PRINTCHREIF2I"CRIGHTEIGAHELSPACEION 
ER" 

1840 PRINT"COOHH GREEN SPACETINIT"HSCH" 
PLUNKTEN® 


1843 PRINT"CDOMMI GREEN SPAGEBI<TASTE>" 
1845 GETAR: IFAf=" {SPACE} "THENIEOO 

1850 IFF3=1THENF2=5:F3=2: G0T01802 

1855 IFFS=2THENF2=28:F3=3: 60701802 

1855 IFFS=3STHENFZ= 144: F3e1ı GOTO1BO2: 


<134> 
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<26> 
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<B7> 
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“> 

156> 
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ne -T R 
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353 
3 
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“1585 
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2206 > 
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206) 
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<i173 
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<115> 
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„1203 
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er De 
“laa> 
“1215 
154} 


3} 
‘213; 


Homecomputer # 


Tips u. Tricks für den VC-20 - Tips u. Tricks für den VC-20 





TEILTE, — 


| Es gibt schon einige solche Programmeim gramm „fahren“ zu können. Dieses Pro- Eingaben sind erforderlich, damitdasPro- | 
Umlauf, aber die meisten erfordern eine gramm erzeugt die DATA-Zeilen und löst gramm richtig funktionieren kann—Num- | 
Unmenge von Dateneingaben, bevor man sich dann selbst Ireundlicherweise auf, mer der ersten DATA-Zeile, die erzeugt | 
sie benulzen kann, oder man muß unbe- damit man den Datensatz ganz normal- werden soll; Schrittweite: Anfangsadres- 
dingt ein Laufwerk besitzen, um das Pro- auch auf Kassette - speichern kann. Vier se und Endadresse des MSProgramms. 





IPRINT"eIr" :FORM=ATO3:READDE:PRINT"creran" De; : INPUTDEM) :NEXT:GOSUBL2: IFLNCIB 
THEN STOF 

2LN=PEEK(822)+256%#PEEK (823) : IN=PEEKL9243 :P&=STRECLN):L=LENGPE) 
IRS=PEEKLB2S)+25SHPEEK {A263 !RE=PEEK IPA) +2SGHPEEK(B21) 

4RE="RUNZ" De="clr"+RIGHTFIPE,L-13#" DATA "i0=1:09=B 
SP=PEEK(RSI:PE=STRELP):L=eLENGPE) 

EDE=DE+RIOHTELPE,.L-134+" ,"C=C+1:0SeCS4P:RS=eRS+L:IFRS>RE THENRE="RUNIA":COTOR 
IF C<9 THENS 

SPE=STRFLLS) :L=eLENCPE&) DE=DE+RICHTELPE,L-1 3: PRINTDE:LN=SLN#+IN 
S50SUB14:PRINTRE:POKES21 , 19: POKES32, 13: POKES33; 13:POKE198,3:END 
I8PRINT"cIr"::FORM=1TO8:PRINTM: NEXT :GOSUIBLS:PRINT"RUNIL":END 

I1PRINT"elr"; :FORM=9TOLT:PRINTM:NEKT:GOSUBIG:END 

I2HA=NM 256: LA=NM-HA 256: RETURN 

13.hH=D687: IN=DG 13: RS=DC2) :RE=DC3H SNM=RE:GNSUBI2: POKE, 328, L:POKES2L,H# 
t4NM=LN :O0SUB12: FOKES22, LA: POKES23, HZ: POKEB24, IN 

L5NM=RS :GOSUB12: POKES2S, LA: POKEB26. HZ: RETURN 
LEFORM=1TO®:POKESS1+M, 13:NEXT :POKEESL, 12: POKEL9B, 1A: RETURN 

17DATA ANFANGSZEILE, SCHRITTWEITE, STARTADRESSE ‚, ENDADRESSE 


Bewerbung als Programmautor 


Name: . Vorname: __ 








straße: _ 0 Wohnort: 
Titel des Programmes: ___ — _ Computersystem: 
Erforderlicher Speicherplatz: . Köyles 

ı Erforderliche Peripherie: 


Ich versichere hiermit, daßich der Autor des oben genannten Programmes bin und alle Rechte besitze. Ich bin damiteinverstanden, daßSie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. | 


Folgende Unterlagen liegen diesem Schreiben bei: 
Kassette: Diskette: Dokumentation: . Listing: __ _ __ Rückporto: __ 


Unterschrift des Programmautors: 


Einsenden an: Tronic-Verlag Abi. Programmentwicklung, Am Stad 35, 3440 Eschwege 
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DHRUZ 
HOMECOMPUTER-Abo 








zum Spartarif! 


Schon der altehrwürdige Sherlock Holmes be- 
merkte su Dr Watson: „Watson, seien Sie doch 
vernänftie und kombinieren Sie richtig!" Die- 
sen Rat möchte Ihnen die NHOMECOMPLTER- 
Redaktion auch „mit auf den Weg" geben. Die 
Rede ist vom Kombinieren der beiden Super- 
Magazine aus dem TRONIC-Ferlag. Sie erhal- 
ten nämlich im KOMBI-ABO sechs Hefte von 
HÜOMECOMPUTER plus sechs HEFTE von 
COMPUTRONIC für den Schlagerpreis von nur 
60,- Mark (inclusive Zustellung). Das ist der 
„Inland-Preis“. Das europäische Ausland 
zahlt: (siehe Impressum). 

Natürlich können Ste auch nur den HÜOME- 
COMPUTER abonnieren. In diesem Falle hal- 
ven wir ein interessantes wie preiswertes Ange- 
bar für Sie bereit: Für sage und schreibe 30 










„Hallo, Sie da! Ja, Sie. Sie können sich auf uns ver- 
lassen! Mit einem SOFTWARE-ABO oder einem 
Abonnement des HOMECOMPUTER „liegen“ Sie 
hei uns genau richtie! Lassen auch Sie sich über- 
zeugen. Denn: Unser Service istschnell, zuverlässig 











Mark kommt der HÖMECOMPUTER Jrei 
Haus. Ein Tip für alle „Warsons": Schauen Sie 
sich einmal auf Seite 40 die Abrufkarte an, 
füllen diese aus und dann ab damit zum TRO- 
NIC-Perlag, Postfach, 3440 Eschwege. 

Die HOMECOMPUTER-Redakrion wünscht 
schon jetzt viel Spaß beim Software-Abo und - 
natürlich - beim „Kombinieren“! 








preiswert!" 


Auch auf dieser „erlauchten“ 


Party gibt es nur ein 
Gesprächsthema 
„HOMER’S CLUB“ 





Super-Software-Abo 





R li I ee 


\ t 


für alle Systeme! 


Seitdem wir im „HÖMECOMPUTER" das 
Super-Software-Abo für Ste bereithalten, er- 
reichen uns fast täglich Programmwünsche 
bzw. Programmbestellungen. 


Das Erfolgsgeheimnis ist rasch aufeinen Nen- 
ner gehracht: Preiswerter war Qualität eben 
noch nie! 

Denn, Sie haben die erstklassige und begueme 
Möglichkeit, die tollen aktuellen Programme, 
die wir im HOMECOMPULTER vorstellen, zu ei- 
nem Praumpreis zu ergattern! Das SOFTHARE- 
ABO gilt. für alle Systerne und Koster im Jahr für 
6 Kassetten wanze 69,90 Mark. Wir meinen, dies 
ist ein Preis, der sich sehen lassen kann! Das 
Abo ist auch für 6 Disketten zu bestellen, Diese 
sind ebenso günstig und für 83,90 zu haben, 
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Na, wern das nichts ist? Sie bekommen die in- || 
teressanten, irren Programme natürlich frei | 
Haus, das ist klar. Außerdem haben Sie - falls 
einmal ein Datenträger defekt sein sollte - ab- \ 
sofutes Rückgaberecht - eine Garantie, die wir 
unseren Lesern und Kunden einfach 
schuldig sind, Beachten Sie jedoch 
auch, daß das Software-Abo nicht 
mit einem Zeitschriften Abonne- 
ment gekoppelt ist! Also, was gibt's 
jerzt noch zu überlegen? Ran an den 
„Sofware-hpeck”. 


Abrufkarfe, siehe 5. 40) 






„Müller, Wis haben Sie da?“ 
„Das ist die neue Abrufkarte, 
Chef! „Alles klar!“ 
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Wettbewerb + Witze + 


Wieder tolle 
Beteiligung im 
Homer’s Club! 


Ein Dank an unsere 
Leser! 


Homer wurde wieder mit 
zahlreichen Einsendungen 
in Form von Karikaturen, 
Witzen, Sprüchen, „Hilfe- 
rufen“ etc, eingedeckt. Die 


besten Beiträge findet Ihr 
auf den folgenden Seiten. 


Für alle, die dieses Mal kei- 
ne Gnade vor den gestren- 
gen Augen von Homer fan- 
den, kann das Motto nur 
lauten: „Auf ein Neues, 
beim nächsten Mal bin ich 
der glückliche Gewinner!“ 





Viele Leser werden sicherlich die Charts 
in dieser Ausgabe vermissen. Nach 
langem Überlegen hat sich Homer ent- 
schlossen, die Top 20 nur noch im Ab- 
stand von vier Monaten zu veröffentli- 
chen. 


Beeründung: Wir wollen den Software- 
markt mit seinen Tendenzen und Ent- 
wicklungen über einen längeren Zeit- 
raum verfolgen, um so einen allgemein- 
eültigeren Überblick zu gewinnen. Also 


auf ans Werk und schickt uns eure per- 


sönliche Hitparade. 


Homer ist gespannt, welches Aussehen 
die nächste Top WM besitzen wird. 


Wenn Ihr unter den 50 schnellsten Ein- 
sendern seid, könnt Ihr als zusätzlichen 
Anreiz einen Datenträger auf Wunsch 
aus unserem Software-Katalog gewin- 
nien. 
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Wie's gemacht wird, wißt Ihr ja schon, 
oder? Aber für alle, die zum ersten Mal an 
der Wahl teilnehmen, wiederholen wir 
noch einmal das „Reglement“. Also, ganz 
einfach: 


Man liste zehn (oder weniger) Top-Pro- 
gramme auf, und zwar nach der ganz per- 
sönlichen Rangfolge, Setzt Euch alsohin, 
kramt in Eurer Software-Kiste, fragt auch 
mal die Schwester, was diese so mag und 
schreibt sie auf, die Hits! Eure Nummer 
Eins erhält dafür 10 Punkte „eguigeschrie- 
ben“, der zweite Titel bekommt 9, der 
dritte 8 Punkte usw, so daß der letzte 
Endabrechnung erhält. 

Schickt uns Eure „Wahl-Postkarte oder 
-brief* und vermerkt auch gleich, welchen 
Datenträger-Programm-Wunsch Ihr habt. 
Und: Bitte vergeßt auch um Himmels wil- 
len nicht den Absender! 


Dann ab mit der Post an den Tronic-Verlag, 
Homer's Club, Kennwort „Hitparade“, 
Postfach 870, Am Stad 35, 3440 Eschwege. 


Die Karikatur: OUTPUT 


Mit diesem Titel bedachte Gottfried 
Wolmeringer seine Zeichnung und si- 


cherte sich damit seine 20,- DM Honorar! | 











Club-Infos + Helpline + 


Der Spruch: 


Computer sind bis-heuteras genttlsie 
Produkt menschlicher Faudheil; 





Die Sieger von 
„Was meint Ihr?“ 


Scheinbar kennt sich der größte Teil 
unserer treuen Homecompute r-Le- 


| ser auch in der Welt der Tiere be- 
| stens aus, denn uns erreichten fası 


ausschließlich nur richtige Einsen- 
dungen. Müßig zu erklären, daß es 
sich auf unserem Foto um ein Kän- 
garuh handelte, 
Hier die hoffentlich angenehm 
überraschten Gewinner: 
Die 30,- DM erhält Dennis Kunze 
aus Main, jeweils ein Datenträger 
nach Wahl erhalten Mark Lehne- | 
mann aus Mönchen Gladbach, Ur- 
sula Hach aus Heidesheim, Martin 
Timmermann aus Wiehl I und Mi- 
| chael Rupprecht aus Herrieden. 





Es tut sich was in der 
Computer-Club-Szene 


II-Club Baunatal 


Der TI-Club Baunatal, kurz TCB ge- 
nannt, wurde am 1. 1.85 ins Leben ge- 
rufen. Das erstes Clubmagazin hatte 
einen Umfang von $ Seiten mit mehr oder 
weniger gutem Inhalt. 

Heute bietet man den Mitgliedern ein 
Clubheft mit einem Umfang von etwa 20- 
25 Seiten. 

In der TI-POST, so der Name des Helies, 
findet man Tips & Tricks, Softwaretests, 
Hardwarebeschreibungen, die aktuelle 
und beliebte Seite „News“, aufder Aktu- 


 elles kurz mitgeteilt wird, und andere in- 


teressante Berichte und Themen rund um 
den Mer. 
Außerdem besitzt der TCB eine Pro- 
grammbibliothek mit etwa 450 Program- 
meninBasıc, Extended Basic, Apesoftiba- 
sic und ın Assembler. 
Jedes Mitglied hat hier nun die Möglich- 
keit, sich Programme auszusuchen und 
zu bestellen. Desweiteren bietet der TCB 
seinen Mitglieder einiges an Servicelei- 
stungen, wie z.B. 
- Drucker 
- 32k-Erweiterung 

(Entfernen von Listschützen) 


Juni/ Juli '86 








Wettbewerb # Witze # 


- Einbau eines Resetknopfes, der im- 
mer funktioniert! 

- Hardceopvyausdruck 

- Rekorderreinigen für die immer 
nach zahlreichen vorhandenen Cas- 
settenbesitzer! 

‚und natürlich Hilfe bei allen Fragen 

rund um den TI9%, Jeder, der ein 
Problem hat; kann sich per Post oder 
Telefon an den TCB wenden. Dort wird 
versucht, das Problem schnellstens zu 
lösen, wobei manchmal große TI-Spe- 
zi’s (Heiner Martin, Martin Kotulla) zu 
Rate gezogen werden!!! 
Wer gerne weitere Informationen über 
den ICB haben möchte, kann gegen 
50 Pfe. Rückporto ein Info anfordern 
oder gegen 3,- DM ein aktuelles Club- 
heit bestellen. 


TI-CLUB BAUNATAL 
Maithias Orf 
Birkenallee 34 
N-3507 Baunatal | 
Tel. (0561) 49 7990 


Der Witz: 


sehld um Eingänge einer Compuler- 
Zentraler Das Mitbringen von Do- 


senöllnern iststreng untersagt!” 





Vulkan (Atari): Das Programm läuft nicht. 
Ich glaube, ich habe Peek- oder Pokepro- 
bleme. Ferenc Dorogi Grieperstr. 3], #300. 
Pharao's Grave (C-64): Was muß man tun, 
wenn der Beduine auftaucht? Töten funk- 
tioniert nicht. Fragen funkioniert auch 
nicht, Axel Schinke, Schlopweg 13, 3320 
Salzgitter 31. 

Schloß des Grauens (Atari): Wer kenntdie 
Zauberworte und wie wendet man diese 
an? Christian Schweda, Mannes-Greiner- 
sr 12 6980 Wertheim 2. 
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GAME-HELPLINE 


siehaben irgendein Problem mıt einem Adren- 
ture-oder Arcade-Game? Wie oft kommt es vor, 
daB man bei einem Adveniure-Spiel einfach 
„stecken bleibt“ und die richtige Lösung nicht 
findei. Ebenso haben viele Arcade-Spiele solch’ 
enorme Tücken, und man fragt sich, wie kommt 
man in ein höheres Level? Wie kann man diese 
dämlich Tür denn öffnen? 


Wie die meisten von Euch sicher schon 
wissen, veröffentlichen wir unter dieser Ru- 


brik „Hilferufe” von Lesern, die Probleme 
mit Programmen haben. Ob nun der näch- 
ste Level nicht erreicht wird, ob man immer 


wieder an einer bestimmten Hürde scheitert 
- allem Anschein ist die Zahl derer riesen- 
groß, die sich bei einem Problem gern von 
anderen helfen lassen möchten. Zumindest 
steigt die Zahl der Einsendungen von Aus- 
gabezu Ausgaberapide. Wiees scheint, hat 
unsere Aktion „voll eingeschlagen”, 


Hero of the Golden Talisman (C-64): Wie 


bekomme ich das 3, Grave-Tor auf? Es 


eibt keine Schlüssel mehr! Erwin Wolf, Se- | 


daenstr 58, 3630 Remscheid. 
(Atari 800 XL): Wie funktioniert die 
schnelle AD-Wandlung am Paddle-Ein- 


gang" Klaus Bart!, An der Kreuzkirche 34, 


5489 Eschenbach. 
Hacker (Spectrum): Wer kennt die Ant- 
wort bei Frage 4 (level 4) bezüglich des 


„security check"? Marco Schneider Hasen- | 
takt kt ka ha a 


bürener Landstr. Il, 2800 Bremen 1. 








Keine Angst, Hilfe naht! Falls'$ie bei irgendeinem | 
Spiel ein Problem haben, das bei Ihnen schlaflose 


Nächte verursacht, oder ein Info-Problem haben - 
gleich welcher Art, sa schreiben Sie uns. Füllen Sie 
den Coupon aus und senden Sie ihn an: HOME- 
COMPUTER, Tronic-Verlag,. Kennwort „Helpline“, 
Poftfach, 3440 Eschwege, 

Wirveröflfentlichen Ihren „Hilferuf” kostenlos, 
Mal Sehen, ob sich nicht jemand finden, der Ihnen 
helfen kann! 


System 


Allerdings wissen wir leider nicht, ob den 
Ratsuchenden durch die HELPLINE bei ih- 


rem Problem geholfen werden konnte, Wir 


würden uns freuen, wenn Ihr uns Eure Er- 


fahrungen hierzu mitteilen würder, Eure 
Zuschriften, gleich ob als Ratsuchende oder 


als „Erreitere”, richtet bitte am: 

TRONIC-Ferlag 

Postfach, 3440 Eschwege, 

Kennwort „Helpline”., 

Alle Feröffentlichungen sind kostenlos. 
(bez.) 


Little Computer People (C-64): Wer kann 
mir eine Liste schicken, wo alle Befehle 
enthalten sind” Stefan Bartsch, Eichen- 
wer Ji, 3249 Pracht. 


Tennis (Atari 130 XE): Wer hat selbstge- 


schriebenes Tennisprogramm zu verkau- 
fen? Biete ca. 15,- DM (Maschinenspra- 
che oder Basic). Thomas Fritz, Postfach 
00220, 3628 Heiligenhaus. 
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Wettbewerb + Witze + 
Helpline 


gend Spielbeschreibung für Soloflight, 
wenn möglich in Deutsch. ‚Peter Pickl, 
Heimstr. 10, 5020 Salzburg Österreich. 
Turbo-Tape (Atari 800 XL): Suche Turbo- 
Tape für Datasette XC 11. Zahle 10,- DM, 
Ss. Stapat, Grenzwall 19, 6303 Hungen. 
Thorr 1 (CPC 464): Ich bin in „Lhyun- 
huf’s" Kerker. Mit welchen Worten kann 
ich ihn befreien? Stefan Schmidt, Maria 
Eck Str. 20, 8227 Eckdorf. 


Rambo II (C-64): Benötige deutsche | 
Übersetzung der Instruktion (auch vom |! 


Hubschrauber). Werner Stein, Landstr, 
106, 4390 Gladbeck. 

Turbo-Tape (Atari 800 XL): Suche drin- 
gend ein Turbo Tape-Programm für Atari 
sul XL. Kassettenrecorder Atari 1010, 
Ingo Wiggen, Kirchst. 42, 3143 Wassenberz. 
Piraten (C-64): Hilfe ich sitze fest! Kann 
mir jemand die Lösung beschaffen? 
Hilfried Honekamp, Birkenstr. 4, 4458 
Nenenkaus. 

Rambo (C-64): Wie kann man den Hub- 
schrauber ım Gelangenenlager wieder 
starten? Stefan Bartsch, Eichenweg 11,3249 
Fracht, 

Turbo-Tape + Wintergames (Atari): Suche 
dringend Turbo-Tape und Wintergames 
für Atari 800 XL und Datasette 1010. Gern 
Fick, 7 sp der Hei, 9809 Hosingen/Luxen- 
hurg. 

Agent (/8/55 (ATARI). Wie finde ich den 
Tresor, wenn ich alle Zahlen zusammen 
habe? Jens Hellmann, Hauptstr. 82, 6394 
Grävenwiesbach 2. 

Chimera (ATARI 800 XL). Wo und wie fin- 
de ıch den „Bolt“ und wie geht die Tür 
auf? Wofür sind die Toaster? Jens Sauer, 
Saalestr. 48, 3000 Köln TI. 

Silicon (ATARI 800 XL). Es gelingt mir 
einfach nicht, das Spiel „Silicon“ zu la- 
den. Wer kann helfen? Rainer Ratsch, 
4690 Herne 2, Eickeler Bruch l2a. 

Turbo Tape (ATARI 800 XL). Suche Turbo 
Tape für Datasette 1010. Maitias Steppo- 
nat, Möllendorferstre 36, 6730 Kalserslau- 
iem. 

Checksummer (ATARI 800 XL). Das Pro- 
gramm bringt bei 140 ERROR zwischen 
3686410372219 sind es 255 Zeichen (257). 
Kami sarabi, Rüsterweg 4, 6733 Haßlach. 
Turbo Tape (ATARI 800 XL). Ich suche 
dringend „Turbo Tape“-Programm für 
Datasette 1010, Henning Hayen, Hogen- 
kamp 2587 Eisfleth, 

Turbo-Tape (Atari 800 XL): Suche drin- 
gend em Turbo Tape für Datasette 1010! 
Wer kann helfen? Kal Schalow Otto- 
Hahn-Str. 6, Remscheid II 
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Fluß? Wie benutzt man den Hubschrau- 
ber? Stefan Bartsch, Eichenwer I, 3249 
Fracht. 








telheckstr. 6a, J000 Düsseldorf 3. 


Zum Abschluß noch ein Computer-Club für alle MSKX-Fans 


er 


Helpline 


Jumbo Jet-Pilot (Atari): Wer kennt die 
Spielbeschreibung bzw. -Steuerung: von 
diesem Programm? Leith Buksmaul, Net- 







nung wollte Homerf 
einmal sein „künst-] 
| ; Vermö- 


Istellen. Doch beim 
12. Versuch. der Dar- 
stellung seines Zei- 
chentalents sind 
ihm 6 entscheiden- 
de Fehler unterlau- 
ien. 
könnt Ihr uns diese! 
‚Versäumnisse“ mit-J 
teilen (einfach Bild 
12 ausschneiden und 
idie Fehler ankreu- 
zen)? Auf die 5 Ge- 
winner wartet wie-I]- 
der ein Datenträger 
aus unserem So0ft- 
warekalalog. Sendet 
eure Lösungen bitte 
an: 
Tronic Verlag, 
Am Stad 35, 
3440 Eschwege 
(Programmwunsch 
angeben) 


Suchbild: 





MSX Computer Anwender Deutschland 


Ende 1985 wurde der MSX-Computer An- 
wender Deutschland Club gegründet mit 
dem Ziel der Pflege und Weiterverbrei- 
tung des MSX Heimcomputer Standards. 
Das Ziel des Clubs ist die Beratung und 


- Betreuung der MSX-Computerbenützer 


in Hard- und Softwarefragen. 

Die „MSX-Anwender“ bieten im 
Einzelnen: # Lösungen zu Soft- 
ware- und Peripherieproblemen 
%* Verbindungen zu Hardware- 


und Softwarehäusern # Club- 


zeitschrift (jeden 3. Monat) % 
Free-Soft-Bibliothek und vieles 
mehr! 

Beitrag: 36,- DM 

Schüler, Studenten 

etc. 24,- DM. 


Weitere Infos erhaltet Ihr bei: 


Volker Becker Peter Brandt 
Postfach 6133 Postfach 1542 
6370 Oberursel/Ts. 6 


4400 Münster 
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Beachten Sie die 
Gesetze der Schwer- 
kraft und widerstehen 
Sie dem Magnetsturm 


Der Raumschiffpilot muß schon enorm gut steuern können, 
um die ihm gestellten Aufgaben zu bewältigen. MOON- 
LANDING vermittelt ein völlig neues „Weltraum-Feeling“ 


für Schneider 464 


und sollte unter allen Umständen von Ihnen erlebt werden. 
Sorgen Sie für einen reibungslosen Missionsablauf. 


Bei diesem Spiel geht es darum, von sei- 


nen fünf Raumschiffen, die mit einer || 


Fähre von der Erde zum Mond transpor- 
tiert wurden, möglichst viele sicher zu 
landen. Dies erweist sich aber leider als 


ziemlich schwierig, da die Anziehung eı- | 


ne Rolle spielt und außerdem ein fürch- 
terlicher Magnetsturm tobt. Die Fähre 
wird also vom Mond durch einem be- 
stimmten Faktor, der von der Höhe ab- 
hängig ist, angezogen und vom Magnet- 
sturm mehr oder weniger abgelenkt. 
Zum Gegensteuern besitzen die Raum- 
schiffe vier Düsen: rechts, links, oben 
und unten. Zum Zünden bzw, Verstärken 
der Schubkraft ist nur der Joystick in die 
entsprechende Richtung zu lenken. Will 
man den Schub verringern, muß man ein- 
fach den Joystick in die Gegenrichtung 
lenken. 

Ist man dann glücklich gelandet, d.h. 
man ist nicht mit zu großer Geschwindig- 
keitaufgesetzt, fährt der Bagger, dersonsi 


Moon-Landing - 


TE ETTEN SET To 2 no 2 u 2 2 2 2 2 0202 00 deu ‚oO 


330 SYMBOL 250,0,0 
340 EYMBOL 251,5,3 
„O 
„1 


100 7 
110 
120 
130 | 
140 ° 
130° 
150 * 
170° 
Id0 " * 
170 
200" 

10 OM BREAK GOSUB 29509 
220 DEFINT b 

250 ' 

240 
250 


JeBaSoft 


240 SYMBOL 240,50,102,90,90,102,50,102,& 
b: SYMBOL 255,0,0,0,0,0,0,24,24 
270 SYMBOL 244.112,216,141,142,142,218,1 


21,204 


280 SYMBOL 245,0,0,16,40,15,0,0,0 | 
290 SYMBOL 246,0,31,63,48,32,96, 192,192 
300 SYMBOL 247,0,255,255,0,0,0,0,0 
310 SYMBOL 248,0,248,252,12,4,6,3,3 
320 SYMEOL 249,192,192,192,192,192,255,0 


Junt/duli "86 





presents 


KOON — LANDING 


(C}) 1985 by Jens Barth 


nee Te TTS EEE 5 5 u 202 2 2 202 2 2 2. 2200 


' #24## /eichendefinitionen #eess 


Bringen Sie diesen Raumgleiter 
sicher zum VWlond. 





links steht, das Schiff in die Mond-Gara- 
ge, wo sich keine äußeren Einflüsse aus- 
wirken können. Ist das geschehen, startet 
das nächste Raumschill. 


kleines Menue: <S> oder <FIRE> drük- 
ken, und das Spiel beginnt. Mit den Ta- 
sten <I> bis <5> kann der Level einge- 


Listing 


# 

“ 

T Soc 

” E46 

m >70 

“ m] 10 Be 

# 3970 

# 2 12 13 Bu 

* 410 
420 
430 
440° 
450" 
4a" 
470 


level=-5 


480 
490 
500 
S10.' 
E20 
E30 ° 
540 GOSUB 


1350 


| 


SYMBOL 252,0 
SYMBOL 253,0 
SYMBOL 2534,0,0 








stellt werden: Level eins ist der Schwie- 
rigste. Die Level bezeichnen mehr oder 
weniger die zur Verlügung stehende Zeit 
und die jeweilige Toleranz bezüglich der 


| Aufsetzungsgeschwindigkeit. 


Durch die Taste <L> kann man von Cas- 

sette oder Diskette eine Hish-Score-Ta- 

belle (TOP 5) laden, und mit <R> kann 

man diese saven. Die zu vergebenden 

Punkte sind abhängig 

a) von der benötigten Zeit 

b} vom Level 

c) dem Treibstoff-Verbrauch (für Düsen) 

di vom Abstand zur Mitte des Lande- 
platzes 

Gerät das Raumschiffaußerhalb.des Bild- 

schirms, ist es im Weltraum verschollen 

und somit verloren. 

Rammi man die Fähre, stürzt diese. ab 

und das Spiel ist sofort zu Ende. Ist die 

Zeit abgelaufen, endet auch das Spiel. 

Wach erfolgreichem Abschluß der Mis- 

sion kann man sich gegebenenfalls in die 

Highscore-Tabelle eintragen; Man fährt 


' mit dem Joystick nach rechts und lınks 
die Buchstabenzeile entlang. Durch 
Drücken der <FIRE>-Taste wird der ak- 
Am Anfang (nach RUN) erscheint ein | 


tuelle Buchstabe übernommen. Der Pfeil 
rückwärts bedeutet, so viel wie <DEL>, 
der Haken schließt die Eingabe ab. Da- 
nach erscheint wieder das Menue. 


- Moon-Landing 


0,0,255,0,0 
‚3,255,0,0 
‚0,129,129,255 
204 ,120,49,0 
48,126,498,24,0 


‚0,0,0 
PE-PE-2T 
‚0,0 
Se 
n 


# 
7 
# 
T 
4, 


z#### Initialisierung ##### 
DIM gest (5) ,x. (5) 

RANDOMIZE TIME 

“####+ Farben und Windons sene# 


BORDER G:SPEED INK 40,10: INK 0,0: INK 
1,2: INK 2,5:INK 4,24:1INK 6,18: INK 7,24, 

CO: INK ?7,10:1INK 10, 14: INK 11,15:MODE 0 

WINDOW#3,1, ‚20,1, 5: PEN#3,4 

GOSUB 18530 

bx=Fä:xr=ü0: yr=ü 


„»==+ Aufbau Spielfeld #eans 





HOMECOMPUTER $F 


550 BOSUB 1280 
55 GOSUB 1740 


1140 GOSUB 1840 
1156 IF scäareiscore (4) THEN 1190 





570 LOLCATE 1,24:PEN 4:PAPER 9:PRINT" | 14) I “) 
MOON-LANDINS  ":PEN 1:PAPER 0 11650 SDUND 4,200: 50UND 4,150:5DUND 4,200 fi 
580 PLOT -10,-10,2 :SOUND 4,150,40:SQUND 4,100,50:G0T0 2420 | Be 
570 TAG:FOR i=1 TO S:MOVE #1) „309: PRINT 1170 CLS#3:5YMBOL 240,60,102,70,70,102,6 2a 
CHR$ (240) 3: NEXT: TAGOFF 0,102,86 [2 | | Tal 
00 " 1180 ERASE gest:DIM gest (5) Erle 
510 " wauue Änfangsmenue wanss | 1170 GOTO 500 ER! 
620 ° 1200 ' as 
&30 GOSUB 1450 1210 7 ##### Unterprogramme zu## iR 
640 GOSUB 1700 eu a 
650 sec=70#level 12530 l | Bu 
550 GOSUE 1840 1240 " —— Fos. der Raumschiffe -- Be 
670 GOSUB 1320 in tn,  - 
830 LOCATE 1,24:PEN F:PRINT STRINGFt2O,1 1250 RESTORE 1270: FOR i=1 TO S:READ “ti ir 
ASI:PEN i :NEXAT:RETURN | Ä - 
670 GOSUB 2420:EVERY 50,3 GOSUB 2620 1270 DATA 292,274 ,305,358,370 f 
00 score=0 1280 a 
"10 GOSUB 7380 1270." -- Malen der Faehre — ar 
720 ° 1300 ° fr 
750 ' === Hauptschleife #ere«- 1310 PEN 1:LOCATE B,&:PRINT CHR$ (246) STR 
ae ING$ (4,247) CHR$ (248) 1 LOCATE 8,7: PRINT CH 
750 FOR schiffe=1 TO 5 R# (249) STRING (4,250) CHR$ (2511 FRETURN B 
760 fuel=300 1320 ' Be 
770 x=x (schiffe):y=309 1350 ° -- Malen des Baggers -- | In: 
1340 ° | m 


780 TAG:MOVE x,y:CALL &BD1F:PRINT CHR$(? 
40) 5: TAGOFF 
790 IF jao=1 THEN PRINT CHRFLZFICHRE LG: 


PLOT -10,-10,11: TAB: MOVE x,y:CALL #8D19: 


1350 PLOT-10,-10,5: TAG: MOVE br „dö4: PRINT 
CHR# (244) 5: TÄGOFF:PLOT-10,-10,,2: RETURN 
1340 ' 


PRINT CHR$ (255) 5: TABOFFEPLOT -10,-10,2:P 4379, Splelfellizeichnen Hi 
N Ba ne SEES ISEBEE Zee 1370 LOCATE 1,19:PRINT SPACEF(40) HB 
BE a a = Eu. 
BIO ' "wu## Anziehungskraft , 1ac9 PEN F:LOCATE 1,24:PRINT STRING# (20, ” 
g20 Joystick-Steuerung „ | an 
330 Basket ee 1410 LOCATE 1,23: PRINT CHRFLIATICHRFLIAE | 0 
Ba0 > I CHR£ 1215) SPACEF (IA CHRE (214) CHRFLLASICH m 

850 anz=0:5#(1380-y) 10) ıya=y-anzı ll REL14S} 

N ee N 1420 LOCATE 1,22:PRINT CHRFLASICHRE (215 | 

870 IF INT(y-0.5)<47 THEN 1100 ve RETURN Fa 
Baü ja=J0Y (0) | | Kae 
870 IF ja AND 1 AND yr<20 THEN yreyr+i er Te | az 
Fo0 IF AND 2 4 -10 THEN yr=yr- A | | Pre 
710 IF 16 AND - rn rs THEN EEE 1480 t=0: IF scorefscoret4) THEN 1580 | a 
920 IF io AND 8 AND «r<10 THEN xr=«r+1 1479 IF score<score (5] THEN score(#}=sco © = 
930 IF tio AND 4 OR jo AND BiI=0 THEN me re:name# (4)=spieler#:GOTO 1580 au 
xr-S6GN (kr) iger, 1500 IF score<score(?} THEN t=1:60T0. 154 m: 
940 IF tjo AND 1 OR jo AND 2)=0 THEN yr= e » En 
yr-SGNtyr) id 132 IF scoreiscoret{l} THEN t=2:60T0 154 Ber 
u ap SU US TE WENBESn 1520 IF scare<scoret0) THEN t=3 ELSE t=4 öi 
-N fuels | | | ir 
960 IF y>285 THEN xr=0 1 ante di 
F7Ü wamkatrkriyamyatryr Se nett} ee = I 
780 IF ya<280 AND gest (schiffel=0 THEN q 1350 score (S-i)escore (4-i)ınames (J-iljena | un Fr 
est (schiffe)=1:PRINT CHR& (22) CHR$(1)5:60 Dee ; | iE 
SUB 1310: PRINT CHRS$ (22) CHR$ (0) 7 es "u BE 
7930 IF ya>277 THEN 1020 1570 scorei4-t)=scorernamet(4-t)=spieler Mn Tor 
1000 IF TESTtx-4,y-16)°>0 OR TESTix-4,y+ E | | | | 
2)<>0 OR TEST(#+32,y+21<>0 OR TEST {x+22, 1580 FOR i=0 TO 4 | 22 
y-16)<>0 OR TESTix+12,y-15)<>0 THEN GOSU 1570 LOCATE 1,F+i:PEN 4 nukasan) Er 
B 2230:G0T0 1110 1800 PRINT USING t" \ mE TTE TE Kir 
1010 IF x<0 OR x>640 DR y>399 THEN GOSUB ‚name#{i);scoreii) eo We 
2280:G0T0 1110 | 1610 NEXT i > 
1020 IF »>200 AND x<415 AND y<320 AND y> | 1420 RETURN u 
288 AND gest ischiffel=1 THEN GBOSUB 2700: | 6530 ° | wo 
GOTO 1130 4840 ' — Init der TOP S — rein 
1030 IF ya>400 THEN GOSUB 2280:G6070 1110 1650 Er = 2 Ba 
1040 TAG:MOVE x ,yiCALL &BDIFSPRINT" ";ET 1450 DIM score (4) ‚name "3 
AGOFF 3 ! 1870 RESTORE 1&B0:FOR i=0 TO 4:READ scor br. 
1050 yexaryaya eii}rREAD nameFtii):NEXT i | 
1040 GOTO 780 1680 DATA 2500,JeBaSoft ,2200,JeBaSoft,19 nA 
1070" o0,JeBaSoft, 1600, JeBaSoft,1300, JeBaSoft | a 
10980 ' ##### naechstes Schiff ##r## 1670 RETURN Sm 
1090 : 1700 ° Be 
1100 GOSUB 1700 ı719 * -- Anfangsnenue — EoR 
1116 xr=eö:yr=0: jo=0 1720 a 
1120 NEXT schiffe 1730 GOSUB 1BI0:EVERY 100,3 GOSUB 1830 BD 5 
1130 AFTER 0,3 GOSUB 2700 1740 LOCATE 1,1:PEN 10:PRINT" S"z5:PEN 4: HE 
| EEE FE BIT ET EEE TRETEN NIEREN 


4 HOMECOMPUTER Juni’ du "86 


ie 
tr 
De 


ı 2240 ’ 


2040 


| 2100 


‚, 2140 

2150 
2160 ' 
ı 2170 
So,explo,,,3:NEXT explo 
‚2180 RETURN 


2200" 


' PRINT"TART  "s:PEN 10:PRINT"L"3:PEN 4: 
 PRINT"-"3:PEN 10:PRINT"S"4:PEN 41PRINT" 
Level" 


1750 aseINKkEY$: IF asi>""THEN 1750 

1780 LOCATE 7,35:PEN 4: PRINT"Level";:PEHN 
10: PRINT level 

1770 a$=UPFERE(INKEY#}: IF a#=""THEN 1770 
1780 IF as="S" OR JöYiö)eild4 THEN RETURN 


1770 
[#) 
1800 
1810 
(af) 
1870 GOTO 1740 

1830 SOUND 1,51,200,1,4,1:50UND 2,103,20 
Ö,1:RETURN 

1840 ' 
18509 ' 
1850 ' 
1870 FOR i=1 TO 4:LDCATE 1,i:PRINT SPACE 
#120) NEXT 

1880 FOR i=7 TO: 14: L0CATE 1,i:PRINT 5SPAC 
EFt{2O):NEXKT 

1870 RETURN 

1900 * 
1710 ' 
1720 
1730 AFTER 0,3 GOSUB 2700 

17409 IF INMTiyli=45-level OR anz-yr>B+lev 
el THEN GOSUB 7070 ELSE score=INT {score+ 
anz#7’#(5-level)+sec#4-AB5 (320-4) )+fuel #2 
1950 IF INTiyIJ<=45 THEN y-45: PEN F:LOCAT 
E i1,24:PRINT STRINGFI260,143) 

1950 MOVE #,Yy: TAG: PRINT CHR# (240) 3: TAGOF 


IF af="L" THEN GOSUB 3010:605UB 145 


IF a$="R" THEN GOSUB 3110 
IF af}="1"AND ati="S"THEN level=VAL 


-—- Spielfeld reinigen — 


-—— Bagger fahren — 


OF 


1770 SOUND 2,1000,371,4: FOR j=32 TO 48: MH 
DVE 543,i1:DRAW 540,i1,0:FOR delay=i TO 20 
O:NEXT delay,i 

19B60 FOR bx=F5 TO *x-32 STEP 4:50UND 1,20 
80,4, 4:1CALL #8019:6G0O5UB 1350: TAG: HOWE bx 
‚AbrPRIMT" "5:NERT bi 

1990 SDUND 1,2006,4,4 

20020 FOR ba=4-32 TOD 540 SETEP 4:50UND 1,2 
000,4,4: TAG: CALL &BD19:PLOT-10,-10, 4: MOW 
E b#,44:PRINT EHRFL244) ; : FLOT-10,-10,, 2:M 


‚ WE b#+28,45:PRINT CHR# (240); :MOWE bx „45 


PRINT" "3: TAGOFF:NEXT 
2010 FOR delay=1 TO i40:NEXT delay 
2020 GOSUR 1340 
2030 be=F&:G05UB 1350 
2040 SYMBOL 240,50,102,90,70,102,50,102, 
47.1 
2050 GOSUB 7&20:EVERY 50,3 GOSUB 7620:60 
SUB 2380 

50 RETURN 
2070 ' 
2080 ' 
z070 ' 
SYMEOL 240,0,0,0,24,50,102,106,255: 
LOCATE 1,Z4:PEN FLPRINT STRINGS (20,143) 
2110 MOVE x ,44: TAG: PRINT CHR# (240) 5: TAGO 


— Ekplosion eines Schiffes — 


DER 


2120 
2130 


GOSUB 2140 
RETURN 


' — Esplosionsgeraeusch — 


FOR explo=5 TO 6 STEPF -1:50UND 1,0, 


-—— Srund mach Schiffhoehe — 
1 1 
SMND 4,500-4,21,3,,,1: RETURN 


-—- Crash — 


Verne 


‚ zae’c GOSUB 2140:G0T0 


SYMBOL 240,0,0,0,24,60,102,106,255: 
 #,Y: TAG: PRINT CHR&$ (240) 3: TAGOFF 
2010 


Ba = N - u da | 
u = r 5 ".r 


Juni/duli '86 


oz 











ee zen] 2 


2280 * 

2290. ° 

2300 

2310 TABOFF:PEN’7:LOCATE 1,10:PRINT" 

VERSCHOLLEN" 

2320 GOSUB 2870 

2350 FOR delay=i TO 4000: NEXT delay 

2340 FEN 1:L0CATE 1,10: PRINT SPACEF (20) 

2350 MOVE x„y:TAG:PRINT" "+:TAGOFF 

2s60 GOSUB 2380 

2570 RETURN 

Fu) = b Di 

2390 ° —— SEDRE-Anzeige -- 

2400" 

2410 LOCATEH3,7,1:PRINT#3,"SCORE :"zUSIN 

G"#HH "score: RETURN 

2420 ° 

2430 ° —— NMamenseingabe -- 

2440" 

2450 CL5S#3:LOCATE 5,.9:PEN 4:PRINT".....» 
..... spointer=0:po=lF:spieler$="":buch# 
"L ABCDEFGHILJELFHNOPORSTINWXTYZ.. "+CHR 
#252) +CHR# (253) +CHR# (254) +" es 
2450 FEN 2:L0CATE 1,15: PRINT"Yoau’re in £ 
he TOP 5.":PRINT:FRINT" Use joystick ta 
":PRINT" enter your name" 

2470 LOCATE 5,1:PEN 4:PRINT MID#(buch#,Pp 
a=-3,s33:PEN 10; PRINT MID#(buch#,po,1);:P 
EN 4:PFRINT MID#thbuch# ‚po#1,5) 

2450 jeJOY to) 

2490 IF j=4 AND po>7 THEN po=po-1 

2500 IF j=B AND po<34 THEN pospo#i 

2510 IF j=1& THEN GOSUB 2540 

2520 FOR delay=i TO 30:NEXT delay 

2550 GOTO 2470 

2540 e#=HlD#tbuch#,po,1} 

2550 IF ef=sCHR# (255) THEN LOCATE 1,15: PRI 
NT SFACEF(BOI ::GOTO 1170 

2550 IF pointer}>io AND e#< >CHR# 1254) THEN 
RETURN 

2a70 IF e$=CHR#1252)THEN ef=" * 

2580 IF es=eCHRFf (253) AND pointer>ö THEN L 
DCATE pointer+4,9:PEN 4:PRINT“."CHREIB): 
pointer=pointer-1:spieler#=LEFT#ispieler 
#,LENispieler#}-1}:G0T0 23510 

2sr0 pointerspointer*#l 

2500 PEN 16:L0OCATE pointer+4,F:FRINT e$: 
spieler#=espieler#+tef 

2510 FOR delay=1 TO 200:NEXT delayı RETUR 
N 
FH Bu 
2050 
2" 
2550 score=sscore-l:ısec=sec-l: IF sec=e-1 T 
HEN 2720 

24540 IF scorei=0 THEN score=0 

2670 m=INT (sec/&0) :5=sec-m#50: LOCATE#H3,2 
2680. Ss#=RIGHTFISTRE 5} „LENISTRF IS I - 1): I 
F s“lO THEN s#$="0"+s# 

2590 PRINT#3,":2";5# 


-—- Verschollen —- 


— Zeitnehmer — 


700 RETURN 
27/10 
2720 '* — Zeit zuende — 


2730 ° 
2740 TAGOFF:PEN 7:LOCATE 1,10: PRINT" 
TIME QUT" 


2730 GOSUB 2870 

2760 FOR delay=i TO 10000:NEXT delar 
2770 GOTO 1130 

2700 ' > 

2790 * — Rammen der Faehre — 

2800 " 

2810 FÜR explo=7 TO 6 STEP-1:50UND 1,0,5 


O,explo,,„‚i0:NEXT explo 
WINDOW#4,7,14,4,23 

FOR scroll=ei TO 235 

LOCATE#4 „1,1: PRINT#4 „CHR# (8) 

FOR delay=i TO 100:NEXT delay 

NEXT scroll 

' score=o 


HOMECOMPUTER #9 


2B80 

2870 

zoo " 

2910 h 

2920 SOUND 4,240, 20:50OUND 4.285,60 

2930 5DUND 4,257,&0: SOUND 4,318,&0 

2940 SOUND 4,285,180: RETURN 

250° 

2940 ° — BREAK-Behandlung —- 

zur 

FIa0 CALL ZBCO?: MODE 2:PEN 1:END 

zen * 

mia 0a Be 

010 " 
| Sso2o. * 
IM 0350 DOPENIN "'TOPFS.LDN" 

3040 FOR i=0 TO 4 

5050 INPUT #7,name# ti) 

0540 INPUT #7,score ti} 


RETURN 


-- Traurige Melodie — 


-—- TUP 5 laden — 





Checksummen 


50 HOMECoMPUTER 


Checksummen 


3070 NEKT i Bun 
3080 ‚CLOSEIN | 
3090 RETURN 

3100 " 

3110 ° — TOP 5 retten — 

3120- " 

3130 OPENOUT ""TOPS.LDN" 

3140 FÜR i=0 TO 4 

3150 PRINT#F,name#(i) 

3140 PRINT#?,score(i) 

3170 NEXT i 

3180 CLOSEDUT 

3170 RETURN 

3200" 

2710 0 ee 

3220 * = ENDE des Programmes * 

3230 7 Haha 

z240 " * JeBaSoft '85/'B4 = 

ZPO en 








ZEILENNR.: SUFMEN 1i1s0- 1170: BOIBO zeäl- 2250: 5758 
100- 110: 2B&l& 1180- 1190: 17483 2260- 2270: 33581 
120- 130: 37077 1200- 1210: 32347? 2280- 2290: 1549714 | 
140- 150: 21109 1220- 1230: Fro 2300- 2310: 20537 
1&0=- 170: 35770 1240=- 1250: 34434 2320- 2330: 32454 
180- 190: 28514 1240- 1270: 572085 2540- 2350: 24132 
200- 210: 1543 1280- 1270: 23862 2560- 2370: 684 
220- 2%: 821 1300- 1310: 30407 2380- 2390: 18444 
240- 250: 44845 1320- 1330: 74575 Sol» Zul 51295 
240- 270: 93089 1340- 1350: 23488 2420 2450: 20426 
280- 290: 32111 1350- 13570: 31183 z2440- 2450: 28051 
>00=- 310: 27089 1380- 1370: 5180 öl“ 2470: 78032 
el ae re 1400- 1410: 495697 2a- 24970: 31210 J 
340- 350: 28855 1420- 1430: 84417 2500- 2510: 59804 
360- 370: 25314 1440- 1450: a1: 1-1 2520- 2530: 34467 
saü- 3070: 35111 1450- 1470: 17412 2u40- 2590: 568179 
400=- 410: 11903 1480=- 1490: 53377 aeh- 2570: 80333 
420- 450: 7B35 1500- 1510: 77305 25a0- 2590: 37833 
440- 450: 379723 1520- 1530: 3775 2h00- 2510: 105347 
440=- 470: 50359 1540- 1550: 55677 2u20- 2530: 15022 
480- 490: T7T44is 1559- 1570: &1788 2u40- 2450: 2542 
„00- 510: 27250 1580- 1570: 12057 auh- 270: 38595 
520- 550: 35037 1&00- 1610: 32745 z&B0- 26570: 11801 
s40- 350: ’18 1520- 1830: 5 2700- 2710: = rn) 
S60- 570: 45768 1640- 1650: 15992 2720- 2730: 15839 _ Gesamt: 
80- 5920: 13052 iäs0- 15670: 72005 2740- 2730: 21902 Ch cks 
&00- &10: 26772 1580- 1490: 44831 27&0- 2770: 35732 NECKSUMME 
520- 5350: 1134 1700- 1710: 18792 2780- 2770: 24199, men 
le 5 ll 1729- 1730: 7317 2B00=- 2810: 285381 46535? 
B60- 570: 710 1740- 1750: 541293 2820- 2830: 15804 Ve 
5B80- 490: 23735 1740- 1770ı 70593 2840- 2850: 39553 
‚00- 710: 7038 1780- 1790: 50394 ZBad- 2870: 12744 
‚20- 730: 291655 isdd=- 1810: 73207 z2a80- 2890: = 
740- 750: 14415 1820- 1830: 28103 2900=- 2910: 25417 
’80- 770: 42216 1840- 1850: 31114 ?920- 2930: 18758 
Fa0- 790ı 92075 1850- 1870: 29034 2940- 2950: 5930 
Büd- Bid: Sö41s 1880- 1890: 34851 29640- 2970: 25156 
Bed 830: 534745 IT90- 1910: 19177 2380- 2970: 7455 > 
B40- 850: 12505 1920- 1930: 3707 Ssooo- 3010: 13201 
Bal- 870: 38320 1749- 1950: 34295 s020- 30350: 3777 
BBO- BO: 8417 1940- 1970: 57304 35040- 3050: 17882 
700- #10: 17828 1780- 197970: 19447 ual= 3070: 15570 
720- 730: 54807 2000- 2010: 73395 3080- 3090: 337 
TAd- 730: 82345 2020- 2030: 7448 | z»100=- 3110: 15732 
Ta0b- 970: 783970 2040=- 2050: 33001 >120=- 3130: 5980 
Ta0- #990: 72501 Suhl- 2070: Er} = = s140- 3150: 15713 

1000- 10106:107173 2080- 2090: 45537 31&0- 3170: 14508 

1020- 1030: 34147 2100- 2110: 23713 >180- 3170: 338 

1040- 1050: 45477 2120- 2130: 728 seon- 3210: 17570 

1040- 10705 678 2140- 2150: 76182 3220- 3230: 47140 

10B80- 1070: 35059 2140- 2170: 44147 sel 32 Fk E 
1100- 1110: 25184 Pigo- 7190: at 

1120- 1130: 10729 Faod- Zrill: 40352 

1190- 1150: 32983 2720- 7730: 17183 

Checksummen - Checksummen - Checksummen - Checksummen 
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Ein wahnsinnig schnelles Schneider-Programm für 
erfahrene Joystickkünstler mit kurzen Reaktionszeiten 


„Panzer“ ist zwar nur ein Mini-Programm mit relativ einfacher Spielaufgabe. Dafür zeichnet 
sich dieser Beitrag jedoch durch seine hohe Spielgeschwindigekeit aus. Schneider-Freaks, 
die Freude an High-Speed-Action haben, kommen hier sicherlich voll auf ihre Kosten. 


Als Panzerkommandanı geben Sie Ih- streuten Männchen einzusammeln. Für 

| rem Fahrer den Befehl, sich aus dem jedes ergätterte Männchen.erhalten Sıe 
Kampfgebiel zurückzuziehen, da Ihre eine Gutschrift von 10 Punkten. 
Munition verbraucht ist. Aufdem Rück- 
wer zum weit entfernten Munitionsde- Doch Achtung! - Hier sind wirklich | 
pot erreichen Sie. ein Dorf. Hier gilt es schnellste Reaktionen erforderlich, sonst | 
nun. den zahlreichen Hindernissen in prallt Ihr Panzer gegen eines der Hinder- 
Form von Häusern. Bäumen und Zäu- nisse, was eleichbedeutend mit dem 
nen auszuweichen und die wahllos ver- Spielende ist. 


Eee = = € 5 En 5 500 on on nn 202 5 7 2 ZU 20 200 2 2 2 20 2 2 2 2 20020 
pr a EZ u FAMNZER “+ 
Zee 
46 GOSUB 550 

50 GOSUB 770 

50 panze=f 

’0 rund=o 

BO sch 

90 DIM #%(40,725) 

100 rundes20: men=10: rundel=erunde+trund 
iiO FOR x=1 TO 2S:ıFOR y=l TO I0:fily,a)- 
O:NEKT 

170 NEXT 

130 ENV 3,&4,1,1:ENT 3,5,-2,2 


140 SPEED INK 1,1:MODE 1:INK 0,9: INK 1,2 
1:BORDER 9:PAPER O:PEN Zı INK 3,6: INK 2,0 
: INK 1,15 

150 a=172 


150 FOR com=1 TO rundel:gqg=INTIRND#25) +1: 
w=INT iRND#40) +1 

170 LOCATE w,„grPRINT CHRFIZOL IH: FA in ,qg) = 
201 :NEXT 

180 FÜR com=i TOD RUNDel:q=INTIRND#ZS) +1: 
n=INTIRND“40) +1 

170 LOCATE w‚g:PRINT CHRFLZO2I ; FA im,qi= 
202:NEXT: 

>00 FÜR com=1 TO RUNDei:q=INT{RND#23)+1ı 
w=INTt{RND#40) +1 

210 LOCATE #w,g:PEN 2:PRINT CHRFI204) ;: FA 
in,gle204:NERT 
220 FOR comel TO men: g=INT (iRND#25})+1:m=1 
NT<{AND#40) +1 

230 LDCATE #„g:PEN 1:PRINT CHR#L224 1; : f% 
in,gl=203:NEXKT 

240 xellıy=197 

250 j=J0Y (0) 

250 FEN 3:LOCATE x» ,„yıPRINT CHR#(a); 

270 IF j=1 AND y>1 THEN a=sisa: y-y-1:50UN 
D 4,300,0,2,3,35,2:spr=1:605UB 410 

280 IF je2 AND y<25 THEN a=s170: yay+lısQu 
ND 4,300,0,2, 3, 3,2: spr=e2: GOSUB 450 

2970 IF j=4 AND »>1 THEN »=x-L:as172: 5DUN 
D 4,300,0,2,3,3,2:s5pr=3: GOSUB 470 

300 IF j=8 AND x<40 THEN xex+l:ıa=i1ößı 5DU 
ND 4,300,0,2,3,3,2:s5pr=4: GOSUB 520 

310 IF ji=0 THEN ON spr GOSUB 830,8650,8%0 
„FzO 

320 IF fXix,y)J=201 THEN 700 

330 IF fälx,yl=202 THEN 700 | 
340 IF fXix,y}=203 THEN SOUND 1,402,30,7 
ssc=sctlörmen=men-1:f% ck ‚yo 
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350 IF f£ix,y}=204 THEN 700 
3540 IF men=0 THEN panz=panz+lıvor=10#pan 
z:ıG0T0 9750 

>70 GOTO 250 

380 LOCATE »,„y:PRIMT CHR#l(a); 

370 RETURN 

400 " oben 

410 LOCATE »,yıPEN 3:PRINT CHR#(aAl3 

420 LOCATE x,y+1:FPRINT " "3 

4530 RETURN 

440 " unten 

450 LOCEATE »„Yv:PEN 3:PRINT CHR#F (A); 

440 LOCATE #,Yyrl:PRINT " "; 

470 RETURN 

480 ° links 

490 LOCATE x,„yıPEN 3:FPRINT CHA# (a); :LOCA 
TE x+1l,yıPRINT" "53 

Ss00 RETURN 

s10 ° rechts 

520 LOCATE x,„Yy:PEN 3:PRINT CHR# (a); :LOCA 
TE x-1,vıPRINT" "7 

350 RETURN 


SEO SYMBOL 166,16, 16,214, 254 254,254 254 
„‚irE 

570 SYMBOL 158,252,252,120,127,120,252,2 
52.0 

Ssa0 SYMBOL 170,199,254 254 ,254,254,214,1 
ö,1d 

590 SYMBOL 172,53,63,30,254,30,63,63 
500 SYMBOL 174,0,0,0,158,0,0,0,0 

s10 SYMBOL 200,50,20,&0,87C0,%24 ,248,&7C, 
ne] 

520 SYMBOL 201,%&10,&38,&60,BFE,&7C &64,%& 
Le 771 

630 SYMBOL 202,20,60,80,&FF AA ,%55,&AA, 
uFF 

640 SYMBOL 238,522,59,544,, 695, EA0,&15,&6 | 
A, 

350 SYMBOL 203,61C,&2A,5356,610,549,£3E,% | 
8,&14 

466 SYMBOL 204,610,&38,&7C,87C0,&7C0,&38,% 
10,658 

570 SYMBOL 224,&1C,&2A,835, 610,849, ,23E,%& 
B,&14 

590 RETURHM 

570 ° Ende 

700 PEN 2:1LOCATE x,y:FRINT CHRF(238): FOR 
a=1 TO 30: INE O,RND#?77 

710 SOUND 4,2#10+100,5,5: BORDER RND#27ı F 
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OR i=1 TO SO: NEXTINEXT 

720 CALL 2EBOO:CALL &BCO2:MODE 1:PAPER 0 
PEN 1:LOCATE 18,10: PRINT sc 

730 PEN 2:L0CATE 12,1:PRINTTBAME DOW 
F A" 

40 READ ton 

750 IF ton=-i THEN 780 

a0 SOUND 1,£0n,50,8:60T0 740 

770 DATA 504,424,402,253,319,301,379,402 
‚478,478,451,4351,301,301 ,5319,253,338,358 
„—i 


1020 CALL &BBös 

1930 ° Anleitung 

1040 MODE I:CALL EBCOFr FEN Is PAPER 0:CL5 

1050 PRINT"Sie steuern einen Fanzer „der 

keine Munition mehr hat und durch e 

in' Dorf fahren muss.Dabei duerfen 5ie 
“":CHR#I1204)5" ";CHR#I201)," ";CHRFI202) 

"nicht beruehren,da sonst das Spiel zu 
Ende ist" 

1050. PEN 1:PRINT"kKenn Sie die MHaennchent 

"sCHR£(203)") einsammeln,";:PRINT"bekomm 

en Sie lO Punkte" 


80 PEN 3:ıLOCATE 10,25: INPUT"Noch einmal 1070 LOCATE 10,25:PRINT">>> TASTE << 
WJ/N) "ıneuf gu 

770 IF UPPERF (ineuF)="J" THEN RUN ELSE B0 1080 CALL &BBO&:RETURN 

Le 

800 END 

Bid *" Automatischer fahren 

820 ' oben 

850 IF y>1l THEN yey-1:L0CATE #,y:FRINT C 


HR£{154) SOUND 4,300,0,2,3,3,2 ZEILENNR.ı SUMMEN 


840 LOCATE »„y+l:PRINT " "z:RETURN L0- 20: #4 
850 " unten sö- 40: . 
BAb IF v<25S THEN yey+lıLDCATE x ,„YıPRINT s0- 601 
CHRF{170)37:50UND 4,300,0,2,3,3,2 


TO=- 801 

870 LOCATE x ,yY-i:PRINT "- "j:RETURN 70- 100: 

880 ' links Ä 1201 

870 IF »>1 THEN x=x-1:LDCATE x,YıPRINT C 150- 140: 

HR#F(172);5:SOUND 4,200,0,2,3,3,2 150- 180: 

700 LOCATE x+1,yıPRINT" "s:RETURN 170- 

710 " rechts i70- 

920 IF x<40 THEN x=x+1:LDOCATE x ,„Y:PRINT 210- 

CHR$ (158) 5:50UND 4,300,0,2,3,5,2 2350- 

330 LOCATE x-1,y:PRINT" "zj: RETURN 2350- 

940 * Neue Runde zr70- 

950 runderund#+vortCLS5: LOCATE 5,5: PRINT"S 

eore ı"sscıCAlLL &BBO0: CALL &BB04:60T0 16 

Ö 

750 * Tietelbild 

770 MODE O: INK 0,0: INK 1,6: INK 2,7:INK 3 

‚17: INK 4, 5: BORDER O: INK 54,17,7:ıPAPER 0 

980 LOCATE 2,2:PEN &PRIN”"” PA N zZ 

E R"; 

2970 PEN 3:LOCATE 7,7:FPRINT CHA#F{i1A4)," 1 | H IL 
Tas by“ 0- 480: 1010- 
1000 PEN 4:LOCATE 3,7:PRINT"Michael Fuhr soo 05: 1050- 
mann" ' S20s 10650- 1040: 1025545 
1010 PEN 12:5: L0OCATE 5,25: PRINT">>>TASTET | je 1070- 1080: 206540 


ge" ae 


GESAMTCHECKSUMME: 35715 





Wir haben die Lösung für 





Nutzen Sie die Super-Pro- 
grammangebote des TRONIC- 
SOFTWARE-KATALOGES. 

Auf den Seiten 76 und 77 fin- 
den Sie attraktive Spiele zu 
äußerst günstigen Preisen. Be- 
stellen Sie telefonisch (05651/ 
30011) oder schriftlich per Ab- 
Byelawiiss Es lohnt sich garan- 
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Setzen Sie mit Ihrem „Sinclair“-Pferd über die Hindernisse 
Das „Grand-National in England, das wohl berühmteste Hinder- 
nisrennen der Welt“, findet alljährlich in England statt. Sie und Ihr 
Top-Pferd „ZX-Spectrum“ haben zum Start dieses mörderischen 
Langstreckenrennens gemeldet und müssen sich gegen eine Viel- 


zahl von Mitkonkurrenten behaupten. 


Zum Rennverlauf: 


Alle Sprünge Ihres Pferdes werden mit 
unterschiedlichen Punktzahlen bewertet, 
und die Zeit isteinerbitterter Feind wäh- 
rend Ihres schweren Rittes über den Par- 
cours, Die Kampfrichter sind hart, aber 
fair in ihren Entscheidungen, und Sie 
müssen Ihr Pferd schon ganz schön ım 
Zaum halten, damit Sie hier im Feld der 
internationalen Reitelite nicht sang- und 
klanglos unlergehen. 

Am Ende des Spieles wird Ihr Rennen be- 
wertet. D,h. die erreichte Punktzahl aus 
all Ihren Sprüngen, die begangenen Feh- 
ler und die benötigte Zeit wird mit Hilfe 
eines Punkteschlüssels errechnet und er- 
gibt dann Ihre erreichte Gesamtpunkt- 
zahl. 

Der Erklärung des Spielverlaufs sei an 
dieser Stelle Genüge gelan, denn dieser 
dürfte jetzi klar sein. Uns bleibt nur zu sa- 
gen: „Geben Sie Ihrem ZX-Speetrum“ die 
Sporen und reiten Sie, was das Zeug hält. 


AXEL HENRICH 
HEIDHOERNKEGBG 2} 
2762 SPETZERFEHN 


5 PRINT AT 18,18; "BITTE HARTE 


M"sAT 12,7: "E5 GEHT. GLEICH LOS" 
16 FOR A=USR "a" TO USR "p"+73 
READ Bı POKE A,bı NEXT A 


Re HH 1 _ m 


ı2 DATA 129,175,195,199,195,19 
Jetta 22,28 
0,255,255, 124,755, 2535, 255,755 ,12 
5,60,24,24.24,40,50,.68, 126, 124,1 
26 

14 DATA 174,46,40,124,1274,126, 
125,125,0,3,54,85, 125, 105,52,188 
„15,9,7,13,8,8,24,63,08,8,15,9,9, 
15,8,B 

ih DATA 0,0,0,7,15,31,643,127,2 
29,1944,194,249,16,16,24,252, 16,1 
5.2490,144, 144,748, 15,16,0,0,0,22 
4,240,240,292,254 

ı0 DATA 40,36,56,36,36,36, 102, 
192, 40,34, 34,59,49,125,125,59,0, 
0,0,24,48,124,124,60,1,3,3,.7,7,23 
1,235,253 

= LET B=-483184: FOR l=-15616 TO 

14383: POKE t1+B),PEEK I: NEXT 
I 

#2 FÜRE 23487 ,249: RESTORE 28: 
FOR I=1 TO 43 AREAD At: LET Alr 
=43744+8*C00DE Ar 

24 FOR J=e9 TO 7: READ Aı PÜkKE 
ADR+J,Aı WEIT Jr: MEXT I 

40 DATA "a",7,10,29,24,48,48,9 
5,192, "b" 150,89,81,81,81,59,51, 
119,"c" 144,209, 109,04,75,133,3, 
a,"d",132,184,4,4,2,2,2,4 

42 DATA "2".53,0,0,0,2,.2,65,19 
1,74", 192,50,31,31,19, 1917,32, * 
9",9,8,0,5,7,18,32,72,"h",0,2,8, 
0,0, 1720, 170,64 
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44 DATA "i",82,41,27,1,8,28,8,8 
."3",128,128,54,54,225,115,8,0," 
k",200,48,49,112, 224.129,8,8,*1* 
‚4,4,4,4,.0,29,78,146 

4b DATA "a",0,8,0,1.2,2,2354;1?2 
2.Nn414,13,15,11,19.49,32, 32, "0 
"5,10,17,32,72,152,108,4,°'p",.D, 
0,0,128,129,54,44, 127 

48 DATA "q",9,0,0,0,0,0,0,2a0, 
"er 2,1,2,8,0,8,1,3,"8",35,67,1& 
1,150,89,150,54,128,"t",12,8,8,0 
‚2,8,8,2,,”7 ,4,24,98, 159, 159,80, 
40,24,"u",3,2,0,0,129,124,2,2 

sa DATA *#",129,965,15,8,14,15, 
15,17,"y",5,10,25,32,58,152,108, 
4,727,0,0;0,128,44,32,.18, 12 ,#*®, 
184,1659,150,80,09,898,38,112,"@", 
29,48,48,15,0,0,08,0,"8",13,14,32 
‚58,154,789,1,0,"2",.8,144.94,B,8, 
1,2,164 

se DATA "2" ,48,58,58,72,164,18 
„7,18, 17,0,0,7,13,126,132,4,4," 
‚".,0,0,0,.0,0,1,2,43,"_",.0,0,0,0,8 
‚a,3,5 

54 DATA "+" 8,15,16,47,00,96,1 
12,24,"1",54,129,48,223,0,0,0,0, 
“\4,4,4,250,1,0,0, 32, 
63,0,254,1,0,0 

4 DATA "3",0,0,128,128,44,128 
„254,6,"°" 0, 1,6, 26, 32,67, 157,96 
"7" .2,0,192,40,15,0, 128,96, "2”, 
9B,2,2,0,255,0,8,0 

sd DATA "/".0,8,0,3.207,553,42, 
32,".",0,0,0,248,2498,192,0,8 

182 BORDER 8: FAPER B: IMk 7: CC 
LG 
i20 FOR A=14 TO 21: PRINT PAPER 
1HAT A,B;" 
“: NEXT A 
125 FRINT PAPER 14AT 15,15“ZEIT 


iter" Bloß nicht abwerfen! 








Pe “ 
e Ai dr. Lie Er 
a - 


138 PRINT PAPER 15AT 17,1’ 8 

EEE EEE AT et 
E mi u B':AT 19.1 '"ENM OB 
BD zu BER:AT 22,1: ’BB ED 
mm . B’;:AT 21,1’ BE BEN 
m ER“ 

135 PRINT #8: INK 1:AT BO "EN 


[pen Dom msn u nm ee nee) 

135 PRINT FLASH 1:AT 5,12 "FERT 
IG": PAUSE 8 

140 LET Pi=9:r LET P2=B: LET Fle 
dı LET X=ellı LET Y=29ı LET I=.85 
ı LET Neil 

159 PRINT AT 9,05" 


133 PRINT AT 2,8” 
156 PRINT INK 4,AT 3,0 "nn 


[ee Se ee rear 
157 PRINT INK 4; AT 12,85" 





PRINT DWER 1:AT %,Y: "abe"; A 
T 3-1, Yı"def"3AT X-2,Y:"gh" 
21? IF IMkErf="1" AND Y>7 AND Y 
«29 THEN BO SUB. 58 
213 GO Sub 7u8 
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| 


| 


214 IF INKEYZe"3" THEN LET Z=.8 
| 

215 BEEF Z,-2 

21& IF Z=.B5 THEN LET Pi=Pl+l 
aa PRINT AT Y,Yg Hi jJk"rAtT %o1,r 
s"imn®*;3AT %=-2,137opd” 

222 IF INKEYS="3" THEN LET Ze. 
[rt Be 

225 BEEP. 7,=-2 

=2>7 PRINT PAPER 1;5AT 15,6; Pl; AT 
15,17: P25AT 15,29: P3 
sa PRINT AT X,Yı" 
PN 1 Dh Dur -F Fe 
sıia LET Yer-ı 

315 IF Yaß AMD X=4 THEN LET Keil 
1: LET Y=29: LET Net#+1ı 60 T0 15 
1%) 

3209 IF Y=B THEN LET k=4: LET Ye 
27 

538 GO TO Z18 

sia PRINT AT „Tr: "trs":AT 3-1,Y7 
Eee AT Kei,yg"yz": FOR A=si TO 
28: NEIT A: PRINT AT A,Yr" =z 
at -1,Y:" "AT He # 
Ssi2 IF Z=,85 THEN LET k=ei=-3: LE 
T O=d 

514 IF Ze,8985 THEN LET Zs=i-2: 
LET Oel 

“15 IF O=1 THEN IF ATTR IX+2,V7- 
ij=57? THEN LET P2=P2+1: BO SUB 2 
Be 

16 LET YeY-] 

sz2B FOR AsYy TO Y-4 STIEP -1 

338 FRINT AT %,Ag"T INCH" HAT 1 
‚Aıtmreri.“ 

548 LET YaY-1:ı BEEF-.8B5,A: IF OO 
=1 THEN 60 Sub 686 
3a PRINT AT %,Ar“ 
‚A; H [ 

S’B NEXT A 

sen IF Z=,85 THEN LET X=K+3 

7a IF Z=,29805 THEN LET 4=i+2 
388 LET Yay-i 

sig PRINT AT 8,71" !BrAT Kel,Y 
anzu Aat Koi, 

&i2 IF ATTR (K,Y+4)=6#. OR ATTR 
{X,Y+4)=40 THEN LET P3=P3+riß 
20 FOR A=1 TO 28: WEIT Ar RETU 
RN 

18 IF ATTR IK, Ye1)=49 OR ATTR 
(&K,Yt3)=hr THEN LET P2=P2+Hlı 60 


"AT X-1,Y 


"AT X 





5# HoMECOMPUTER 


| 
| 
iR 


HEFRO-HORSE: The End 


SUB 2230 

15 IF ATIR (K,Yollesd OR ATIR 
(X, Y+3)=608 THEN LET P2=ef2+Hl: E0 
SUB Zuge 

ram IF ATTR t%#+1,Y}=78 OR ATTR 
(X#+1,Y+2)=78. THEN LET P2sPf2+1: 8 
0 Std Zase 

732 RETURN 

Ba IF D=il THEN IF ATTR t(X,Y-1} 
=497 THEN LET F2=eP2+1lt: GO SUB 2a 
u 

818 RETURN 

ı1B1®8 PRINT BRIGHT 175 IM& 4AT 11 
‚Fr "CHAT 18,9,"D"; INK SEAT 11, 
14 "MF4AT 18,217 "N"HAT 11,10, "5 
"AT 18,10; "HE": AT 9.183; "IL" 
Ba PRINT BRIEHT 15 INK 44AT 4, 
Zu; "EHAT 3,257 FIAT A, 12 CHA 
T 3,1270: INK SEAT 4,137 HM A 
1.3, 135 °MN"5AT 2,135" 0° 

1B32 RETURN 

1109 PRINT BRIGHT 15 Ink 4 AT 11 
„z2i'C C*HiAT 18,22) *D D’;AT 11,8 
ı’E E’rıAT 1iB,87*F F’r IHK SAT 1 
1,93 "NM"; AT 18,7; "N* 

1112 PRIMT BEIEHT 17 IM 5SıAT 4, 
21, "G9*, AT 3,217 "IL"; AT 4,18, *6J 
MF;5AT 3,18: "HEN"SAT 2,18, "IL" 
1128 RETURN 

1208 PRINT BRIGHT 15 Imk 44AT i2 
237 "BP";AT 5,15;"A"; INK S;AT 1 
1,13: "01" AT 19,157 "HK" AT 9,155 
"TIL";AT 11,77"M M",AT 18,7," M MH" 
AT 9,7570", INK 44 AT 11,17, "E"; 
AT 18,17,"F" 

1218 PRINT BRIGHT 1; IE SAT 4, 
“23 “"MM;AT 3,22; "NN":AT 2,2200 


1229 RETURN 
1300 PRINT BRICHT 175 IKK 4;AT 11 
4237 CHAT 18,25, "Ds AT 11,14, "C 
EC*z5AT 18,147"D.D"; INK SıAT 11, 
FB" AaT 18, Fr HE AT 9,7, "IC 
1319 PRINT BRIGHT 1; INMk S;AT 4, 
zz "BUNTIAT 3,2241 "HEN"HAT 2,227" 
ILO":AT 4,143 "BJ" AT 3, 14, "HK" A 
T 2,147 "IL": INK 4, AT 4,14; "E"IA 
T 3,161 "FAT 4,8: "CHAT 3,8, "D* 
1320 RETURN 
1422 PRINT BRIGHT ir Ik 4;AT 12 


Maschinenprogramme werden schnell disassem- 
bliert. Das nachfolgende Anwendungsprogramm 
bietet eine nützliche und sinnvolle Programmier- 
hilfe für alle ZX-Spektrum-Besitzer! 


Beschreibung: 


Die Handhabung des Programmes: ist 
denkbar einfach. Sie geben nur die Start- 
adresse an, ab der das Maschinenpro- 
gramm disassembliert werden soll, den 
Rest erledigt das Programm. Sie haben 
auch die Möglichkeit, sich den Inhalt des 
Speichers anzeigen zu lassen. Bei relati- 
ven Sprüngen wird anstatt der Distanz 


gleich die Adresse, zu der verzweigt wird, 


Menüklammern angegeben. Am 
Schluß des Programms sindin Datazeilen 
175 Maschinenbefehle aufgelistet, Die 
restlichen Befehle werden mit Hilfe von 
Formeln zusammengesetzt. 


„19 "ArrAT 12,8, "BR" IN SAT 1 

1,28: "GI": AT 18,28, "HE": AT 7,29; 
"IL4sAT 11,10; "M"sAT 18,12; "N" 
1410 PRINT BRIGHT 1; INK 4IAT 4, 

220:°C C*:AT 3,28, °D DAT 4,18, * 

EE*";AT 3,18; "FF"; IN& 5; AT 4,2135 
"MrsAt 3,21, "N": AT 2,217 "0", AT 4 
„als m3AT 3,117 "N"IAT 2,1170" 
1428 RETURN 

2a10 BEEF „85,28 

21889 RETURN 

seid IF FixX15B Aub P2=8 ANb P3>l 

SG THEN LET Fre": LET 5i-"'y 

HB’: LET Tie’g": LET Vie I: 

LET ke": 60 TO 318 

a2 IF Fi<x189 THEN IF P2<X4 AND 

FZ>158 THEN LET Rio" H": LET 5# 

=# “: LET T$=" Br LET VE" 
"ı LET Wi=" g ": 60 TO 3188 

sasa IF Pixira AND P2<il AND P3> 
ı@0 THEN LET Rte"i": LET S#=-"yJ 
"i LET Te: LET V5=* Fi 

ET Ki": GO TO >ı0d 

Ssa48 IF P1<200 AND P2<21 AND P3> 

58 THEN LET Rem w": LET 5f-" 

EB: LET Te BE": LET WE" Fi: 

LET Wie": GO TO 3188 

sasa LET Rie" Hr: LET 5f=" 
LET Tu“ WW": LET Ya" Wer LET 
Wi=" WM’: EO TO Sien 

siBa FOR A=d TO 7r BEEPF „B03,A+i 

8: FAUSE 18 

3118 PRINT INK Ar PAPER 1;AT 17, 

Zur RAT 18, 2reat 17,2 
20,264 V#ı AT 21,26; Hi 

3115 PRINT BRIGHT 1; INK 4AT 4, 

"el sel] def Mall Pa si 6 vet sa SE = a ee a e- 
EHAT 3, "DD DD DD ED DD 

DbDDD DD" 

3128 NEXT A 

31%8 LET üOf="HEUES SPIEL" 

>1409 FOR Asl TO 111 FRINT AT G,1 

B+AarOFlAlı BEEF .895,10: NEXT A 

sis@a LET O#=""ENTER'TASTE DRUECK 

EN“ 

SJi&B FOR A=1 TO 21: PRINT AT 1D, 

4+A:0#tA): BEEF .BB5,18: NEXT A 

si78 IF IKKEYS=SCHAF 13 THEN GO T 

o 180 

3188 GO TO 3178 


HEFRO-HORSE: The End 





7700 CLS ı BORDER 4ı PRINT AT 
4’D ISASSEHBL art 


0,14 "by"rAT 12,51 "Hara-Geöorg Ku 

hlsann" 

890 IMPUT "ELartadresse -> "ja 

CLE 

810 INPUT "Soll der Adresseninh 

alt ange- zeigt werden 7 (EMTE 

R/ini => ": LINE „# 

820 PRINT AT 20,0, "Adresse! Inha 

1t 1Di nansenbl y-Cade en ern 
i 


7830 LET b=aı LET cea 
7840 GO EUB 7980 
7830 PRINT TAB idıms 
7540 LET beu#i 


7870 IF b=c+20 THEN LET c=bı BO 
TO 7700 
’B80 IF wE<>"n" THEN IF b<>a THE 


N PRINT TAB 11bı TAB 77 "1 

biTAB 145"1"jı GO TO 740 

’B8Yy0 GO TO 7B4aü 

79700 BEEPF „i,20ı INPUT "Weiter 7 
iENTER/n) => "ı LINE h# 

7910 IF He="n" THEN G0 TO 7950 

720 PORE 23472,2335 

7730 PRINT """AdresseallnhaltiDie 

assenbly-Code --—-—| je 

7745 GO TO 73ao 

950 IMPUT "Naus Startadresse? { 

ENTER/nI=>"j LINE h# 


"IPEEK 





Juni’ full '86 


7940 IF hfe"'n" THEN BTOP 

970 GO TO 7510 

980 LET z=FEEK a 

7970 PRINT TAB lıayı IF wscH"n“ 

THEN PRINT TAB 75"! "IPEEK bITAB 
144 "1”5 

Boo6 IF wä="n" THEN PRINT TAB 77 

"I#1TAB 147"1"j 

BOlo REM FALLUNTERSCHE I DLUNG 

8920 IF zei OR z=33535 THEN 50 5 

UA BOBö: RETURN 

8030 IF z=e203 THEN ECO EUE 84401 

RETURN 

BO40 IF z=257 THEN E60 EUB E7004 


E00 RETURM 

56070 REM IX UND IY 

8080 LET e#=t{"IX" AMD zei2l)=#i"] 
Y" AND z=233) 

5090 LET a=ma#+ilı LET z=-PEER a 
B100 IF z=2063 THEN ED TÜ Bi4o 
Bild LET k=INT iz/Blı GO SUB 880 


Bi2ö LET a=a#+iı BÖö TO Bi7Tö 

8130 REM MIT CH 

Bi40 LET a=mat3ı LET z=-PEEK a 
81350 LET k=INT tiz/8)ı 60 Bis 8497 


B1&0 LET a=a-i 

8170 LET df=af+"+D"ı IF ze233 TH 
EH LET di=.s 

B1ldO REM iHLI ERBETIEN 

8170 FOR #=1 TO LEN z#-3 

8200. IF a#t# TO #+3)="c(h1)" THEN 
LET mnten#{ TO fi+ds+mstit+3 TOD) 


9230 FOR f=1 TO LEN mt-i 
B2406 IF m#tf TO #+l)j="hl" THEN L 
ET atenti TO f-11+mE+mttf+2 TO ) 


a310 REM D ERBETZEN 

8320 LET p=PEEK a 

8330 LET afea8ti TO #=-1)+8TRE p+n 
#i#+l TON 

8340 LET ama+l 

8350 IF PEEK ta-2}=2053 THEN LET 


aun#+] 


8390 FOR i=7 TO LEN nf 

8390 IF mtti}e"," THEN LET giens 

ti+1 TO }ı GO TO B410 

3400 NEXT i 

84106 LET mä=ntt TO 7)+g#+") ,"+BT 
A 


5420 RETURN 

8430 REM CE-BEFEHLE 

8440 LET asa+lı LET z-PEEK a 
8450 LET k=IiNT {z/B}ı GO EUB 847 


5450 LET a=ma+i 


RETURN 
B480 REM OPEODE FINDEN 
8490 LET u=kı IF k>7 THEN LET us 


Ba LET vau+ik>H PT) +#ik> 153 + CK 75) 


5540 NEXT f 

8550 REH BIT HERAUBSFINDEN 
BS40 LET b="" 

58370 IF k<iB THEH G6 TO 8590 
5380 LET bi=bTRE Ik-idtdeackilä)>- 
BHtk>23 +,“ 

8370 80 EU "8630 

BA0G LET atsai+bi+rE 

BAld RETURN 

BA20 REM REGISTER BESTIHRMEN 
5430 LET derı-Bak 

8540 REBTORE 79740 

8435 FOR u=ö TO d 

B&ss0 READ r# 

Bahr NMEIT u 

BL00 RETURN 

BAF0 REM BEFEHLE MACH ED 
g700 LET et LET z=PEEK a 


— —.__. 


be © .- i ” % _ - f eh 
a | u E DE dr a 
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8710 LET k=INT i2/B) 


8720 LET r=F700+10skı GO SUB BB5 


8730 LET asa#+l 

8740 RETURN 

8750 REM EINFACHE BEFEHLE 

B7&0 LET k=sINT iz/Blı GO BUB 880 
(a) 

8770 LET as=a*+l 

8780 RETURH 

E7%70 REM BEETIMMT EINFACHEN BEFE 
FL 

88050 IF k>+7 AND k<24 THEN 60 SUB 
22501 RETURN 

8816 LET r7409+10#k 

8820 E0 EUE BasS6 r 

8830 RETURN 

8840 REM EUCHT Mä 

5950 LET der-Bsk 

8949 IF d>3 THEN LET rer+Sı LET 
ded-ä 

8870 REETORE r 

8850 FÜR u=ö TO d 

BBrO READ at 

8700 NEXT u 

8710 REM LAENGE PRAUEFEN 

8720 LET i=LEN n# 

BFIO IF m#ilj="2" THEN BO TO 897 


87409 IF m#til}="3" THEN 60 T0 #10 


8730 RETURN 

B7&40 REM P FUER 2-BVYT£-BEFEHL 
8770 LET a=a+lı LET p=PEEK a 
8780 GO TO F120 

8770 REM P FUER: 3-BYTE-BEFEHL 
2100 LET a=a+2 

“110 LET p=PEEK (a-1)+254sPEER a 
#120 LET adenti TO 1=-ilhı LET 1ei 
-| 

2130 REM N ODER D SUCHEN 

71306 FOR f=1 TO i STEPr -1 

7150 IF asifj="N" DR aäifı="D" T 
HEN GO TO io 

9180 NEAIT # 

#170 REH F FUER D BEBTIHMHEN 
186 IF a#if)="D" THEN LET p=p-2 
5ö#ip>127) 

E10 IF matif)="N" THEN LET p#=s6T 
R# 

9200 IF mt(f)="D" THEN LET pi="{ 
"+5TR# ta#+l+p)+"}" 

2210 REM P# ERGETIEN 

7220 LET efsasti TO f-i)+pfrafif+ 
i 70) 

7230 RETURN 

7240 REM OPCODE VON EINFACHEN BE 
FEHLEN BESTIMHEN 

230 LET u=kı IF k<iä THEN LET wu 
=j15 

7250 LET u=su-15 

270 REBTDRE 7950 

#250 FOR f=0 TO u 

art READ oe 

7300 NEAT f 

9310 REH REGISTER BEBTIMIEN 
9320 LET bi="" 

2330 IF kids THEN LET dek-8:ı 60 
BuB B440ı LET biers4+"," 

7340 ED EUB B535 

9350 LET mienft+bFHr 

2340 IF z=ilG THEN LET afe"halt" 
7370 RETURN 

#380 STOP 

7370 REM DATA FUER EINFACHE BEFE 
HLE 

9400 DATA "nop", "id be,N3","ld { 
be},a","ine be" 

2405 DATA "ine b","dec b","ld b, 
H2","’rlca" 

9410 DATA "an af,af'","add hil,be 
‚id a,ibe)" "dee be" 

7413 DATA "ine e","’dec e","ld e, 
H2", "rrca" 

2 DATA "Idinz D2","’1d de,WM3"," 
id tde) ,a","ince de" 

7425 DATA "ine d","’dee d","id d, 
N2" "ra" 

2430 DATA "jr D2" "add Ai,.de" „"1 
d a,ide)","dac de" 

9455 DATA "ine e","’dec e","ld m, 
H2","rra" 

2440 DATA "jr nz ,D2","1d h1,N3*, 
"id iH},hi3", "ine hi" 

7445 DATA "ine h","dec h","1d h, 


N2" ‚"daa“ 





Ya5o DATA "ir. E, Da, “add hl,hl*, 

"l\d hl,iN)3", ac hi" 

74553 DATA "inc 1","dec 1","l1d 1, 
Na" "cpl" 

9440. DATA "jr ne,D2","1d sp,N3", 

"id iNi ,as" "ine ap" 

7433 DATA "inc ihl)","dec ihl)", 
“ld ih1l),N2", "act" 

2470 DATA "jr c,D2","add hl,sp", 
"ld a, iN)3","dac 5" 

9475 DATA "ine a","dece a","id a, 
Ha" "ect" 

9440 DATA “rat nz","pop be",*jp 

ne,H 5","jp MI" 

7645 DATA "call nz2,N3" "push be" 
‚add a,h2" "rat 0" 

Fa DATA "ret z","ret","jp z,I3 


96 dbAhTtA "call r,N3", "call HI", 
"ade a,H2","rst B" 

er DATA "ret nc","pop de*","jp 

ne,N3", "out {N ,a2" 

Fer baThA "call ne,NF*, "pumh de“ 
ı sub Na", "rest 14" 

90 DATA "rei ee", "mn" „"jip 2,43 
"‚"in a,iNj2" 

9475 IMATA "call c,N3","" “abe a, 

N2" "rat 24" 

9560 DATA "ret po","pop hi",„"ip 

pa," "ar imp),hl” 

74B5 DATA "eall pa,N3", "push hi“ 
‚"and N2","’rst 32 " 

40 DATA "rat pe","ip thl)","ip 
pa,N3" "ar de,hl* 

7495 DATA "call pe, N3","","zkor N 

2 ,"rat 40" 

7700 DATA "ret p","pop af","jp p 
„ne tdi" 

7703 DATA "call p,H3","puah af", 
"or M2",'"ret 48” 

9710 DATA "rat n","i1d ap,hl","jp 
a,N3", "ni" 

9715 DATA "call a,N3","H "ca N2# 
‚rat 34" 

9770 REM DATA FUER ED-BEFEHLE 
@7’a0 DATA "in b,te)", "out tc),b" 
‚"sbe hl,be", "1d {N} „beS" 

I7u5 DATA “neg*,"retn", "im 9","] 
d i,a” 

9790 DATA "in e,te)", "out (e),c* 
‚ade hl,be","ld be, iNI3" 

7795 DATA "" "rail" "tt Hldr,a" 
2800 DATA "in d,ie)", "aut ic) ,d" 
‚"sbe Hi,de","id iHI,de3" 

9805 DATA FH, tr Ya 1" Id a," 
B10 DATA "in e,tci", "out tc) =" 
‚ade hl,de","id de, iN)S® 

9815 DATA "","" "ia 2 ","ld a," 
820 DATA "in h,te)", "au ic),h" 
‚ sbe hl,hl","1d N} ,h13" 

3a23 DATA nn." „"rrd" 

2830 DATA "in 1,te}","ouk te),1" 
"ade hil,hl"”, "ld hi, iM} 3® 

2833 DATA "",79,"9 Irlid” 

se40 DATA “in #,te)* "" =sbe Hl, 
up",“id (N) „spZ" 

850 DATA "in a,ic)", "out ic),a“ 
‚ade hl,up","ld aa, iNi3" 

9790 DATA "Ldi","epi", "ini" "aut 
j" 

je DATA u Fn Du) ; "end", "ind" ’ "nsjit 
& 

Fra2o DATA "ldir","epir","inir"," 
otir" 

#730 DATA "lddr" 

otdr" 

9933 REM WEITERE DATAS 

u F-Te) DATA HH „en. u: ge hu: =j 
"ihl)t,tan 

9730 DATA "1d " "add a,", "ade a, 
"sub "„"abe a,","’and "nor ®, 
= “too . 

Fred DATA "rle *,rre ","rl *,*r 

m ""ola “Sara Le | “hit 
"res "nat " 


THE END 


‚ epdr" "Inder", 











_Die Tronie-Leserschaft sucht wieder den Bee 
SOFTWARE-CHAMPION (1986): 


Wieder gilt es, einen „saftigen" Geldpreis und wertvolle Sachpreise 
| zu „erhaschen". Wer sich auch in diesem Jahr am großen Rennen um! 
die Meisterschaft bewerben will, der sende sein Programm an die un- 

tenstehende Adresse (Abt. PITERRERDEIEHRG 


Jedes eingesandte Programm nimmt an der 
Auswahl teil!!! 
Leizier Annahmetermin ist der 30. Seplember 


1986. Der Rechtsweg ist ausgeschlossen. Einsendung ein mit L, 40 DM ae Umschlag beigele re 
Ü Nutzen Sie Ihre Chance, beteiligen Sie sich mit Einzusenden sind: Ä An 


einem Soflware-Programm an unserem Wettbe- 
ee ER MI: 


Zur Auswahl: 

Wird ein Programm zur Darstellung im Heli 
herangezogen, zahlt der Verlag ein Honorar 
von DM 120,- pro abgedruckte. volle: Scile. | 
Zum Jahresende wähltdie Redaktion ausallen | | AT 
abgedruckten Programmen (HÖMECOMPU- 

TER, COMPUTRONIC, COMPUTE MIT) Postfach 870 - 3440 Esche 

das Topprogramm des Jahres undermittelt da 


| durch den „SOFTWARE-CHAMPION® 1986, KENNWORT: SErEBSOBT WAR RI Br" 


Unsere Leser und die Redaktion werden dann 








in der Ausgabe Dezember/Januar '57 dasab- | 
solute TOPPROÖGRAMM des JAHRES wäh- 
len 


Der Autor des Programmes wird in unserer N Wir wünschen allen Freitzeitautoren ® | 
Ausgabe vorgestellt und mit einem Geldpreis viel Spaß beim Mitmachen. | 


KR ee 














"Magen der Riesenwurm 


- @ - 7X-Spectrum (16K) - @ - ZX-Spectrum (l6K) - 





Maseot der Riesenwurm auf der Jagd nach den Pilzen, die natürlich 
In - f wieder einmal in einem Labyrinth versteckt sind. Unter diesem Mot- 
—_I un ey > to könnte man die hier gestellte Spielaufgabe beschreiben. Doch 
= ze  — ——, | aufgepaßt! - Es ist nicht damit getan, Maggot möglichst schnell, und | 
| | A /,, dabei sämtliche Pilze fressend, durch die Ecken, Winkel und Ab- 
| EN | zweigungen zu hetzen. Denn auf seiner „Hatz“ über den Bildschirm 
/ vergrößern sich die Umrisse des/Riesenwurms dermaßen, daß Mag- 
| | got mit fortschreitender Spielzeit in immer größer werdende Gefahr 
gerät, sich bei einer der zahlreichen Wendungen in den eigenen 
Schwanz zu beißen. Sollte dieser Fall eintreten, ist das Leben Mlag- 
eots bzw. Ihr Spielerdasein verwirkt! (S. G.) 
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en 
Er a 


Tr 
[m „2 


i DEF FN at)=i455I4#PEEK 2367 
A+2SsHPEEK 23A473+PEEKR 23472) 750 


2 LET hi=öı POKE 23472,0ı POK 
E 253673,0ı FOKE 23574,0 
s GO SUB 76001 BÖRDER 01 INK 


oa FAPER Or CLE ı 
’ LET #wos3ı 


50 TO A000 
LET ls=1lı LET sc= 
In) 
iö BRIGHT 01 INK Fı 
0 EUB Bobdı FAPER 0 
20 LET ti=FN at) 
100 PRINT AT 13,151 INK 51 FAPE 
R 11"S"} PAPER 01 INE Sb" 


PAPER lı 6 


110 LET kzı=iF LET ka=i1Tı LET # 
zel3ı LET szse=idı LET az=öı LET a 
= 


120 LET ple0rı LET eo=0ı LET pu= 
Ö 


1350 PRINT #01 AT 0,01" 1965 writ 
ten by A. Nusernberger” 

140 PRINT AT 5,131 INK 77 
3" MAGGOT" 

145 IF sc=0 THEN PRINT #O4AT 1, 
04 FAPER 2;}"i HlIı 00000 SCORE 
OOOGO 

147 GO SUB 4500: PRINT #0ıAT i, 


PAPER 


t12-LEN BTR# hi)ı PAPER 2 INK 7 
ihi 

150 INK 4ı PAPER 1: GO SUB B300 
ı FAPER 0 


150 DIM d#{2,31ı LET dett)e"4 a 
“"ı LET det2)="g ge" 
1701 
1000 LET a$=INKEYsı LET mz=iat=* 
A')=- later 7")s LET an-mtat= tja 
zug) 
1016 IF SCREEN$ Iikz+nz ,ku+ms)e" 
" THEN 560 TO 1100 
1020 IF ATTR ikz+mz ,ka+ms)=5 THE 
MN BO TO 3000 
1030 IF ATTR 
EN 60 TO 4000 
1040 IF SCREENF (kr+tar ,‚ke+ran)et" 
" THEN GO TOD iii 
1036 IF ATTR ikz+ar,ke+tas)=12 TH 
EN LET mz=azı LET ansası 60 TO 4 
alle) 
1050 IF ATTR Iikr+ar,ks+as)=5 THE 
HM LET mz=arı LET ms=sası GO TO 5 
Oo 
1090 GO TO 1000 
10931 
i100 LET az=nıı LET as=ası LET b 
SudsiABE ar+2sAbG an, 2+artan) 
1110 IF ATTR ikz+ar,ku+tas)=ii TH 
EN LET co=eo#+lı IF co=3306 THEN G 
0 TD 3500 
1115 PRINT AT kz,kaı 
144; AT kr+ar,ks+ası 
lıb# | 
1120 LET kzekz+arı LET kauks+as 
1130 IF pu THEN LET pu=dı GO TO 
1000 
1140 PRINT AT er,ssı INK 0," * 
1159 IF ATTR (sz2,85-1]=3 THEN LE 
T aa=na=-lı BO TO 1000 
11353 IF ATTR isz,ss+l)=5 THEN LE 
T sa=ss+lı GO TOD 1000 
1150 IF ATTR {sı=1,as)=5 THEN LE 
T az=esz-iı 80 TO iooo 
1155 IF ATTR isz+1,25)=5 THEN LE 
T sz=sı+tlı 60 TO 1000 
2000 GO TO 1000 
sooo REM = Bien # 
sa10 FOR a=2 TO 06 BTEP -1ı PRINT 
AT kzıksı INK aıbsı BEEP „1,5% 
-131 NEXT a 


(kr+er,katmsl=12 TH 


INK Sı CHR# 
INK 61 PAPER 


so20 60 BUB 3100 
025 LET wo=was=-1ı 
0 TO 3000 

3027 BO EuUB 3700 
3039 80 TO 10 
3106 FÜR a=so TO co 8TEF iöı 


IF #o=0 THEN G 


LET 


sc=sc+ti01 BEEF .01,40ı GO SUB 45 
NEXT aı RETURN 
' REM # Naut Level # 

LET ti=INT {FN atı=ti) 

Go Buß 31001 
APER 2ı INK 7ı BRIGHT 1 
PRINT AT 21,07 "Timsı "ıtiyı 
3330 IF ti >=200 THEN PRINT " 
Borry, no Bonus.", 
3540 IF £1<200 THEN PRINT „"Tims 
Bonus!",ı 
T sceac#3ı 
‚>01 NEXT a 
3550 IF wot3 THEN LET wo=sma#+lı P 
AUGE 101 PAUSE 2601 PRINT AT 21, 
0 FLASH If" BONUS MAGG 
DT"„ı GO SUB 37700 
ssF0 PAUSE i0: PAUSE 3001 BRIGHT 
Os PRINT #04 AT 1,04 PAPER Zılei 
G0 TO 10 
3700 FER a=1 TO „waı PRINT #0, AT 
i,@7+aı PAPER 2, INK TIıCHR# 140, 
ı MEXIT aı RETURN 
4000 REM #= Pilz ®# 
#010 LET pu=ir LET sc=ac+20ı FOR 
a=i TO 10ı BEEP .605,2#2ı1 MEXT 


GO EUB 43001 BEEP .01 


a 

4020 PRINT AT kr+mz ,ke+tası PAPER 
ir INK Z,# “ 

030 GO BUB 4500 

40406 IF RND>I.1-1e/1l0 THEN 50 TO 
4100 

050 GO TO 1100 

4100 FOR a=1 TO 5ı LET ps-INT {R 

ND#30}+i1 LET pz=INT {RND#20) +1] 

4110 IF ATTR ipr,ps)<>1i1 THEN NE 

XT aı GO TO 1100 

4115 IF BCREENE (pz,ps)t}" " THE 

N NEXT aı 60 TO 1100 

#120 FOR a=io TO 6 B8TEP =-Iı 
.805,a1 NEXT a 

#130 PRINT AT pz,psj 

A l11CHA# 1471 

41403 

4508 PRINT #04 AT 1,(24-LEN STR# 

sec}ı PAPER 2ı INK Fımciı RETURN 

45101 

so00: REM = Bane over # 

3010 PRINT AT 21,01 FÄPER 2ı INK 
’ı FLASH 14" * GAHE OWVE 

A #", 

5020 FOR a=40 70 -10 8TEPF -,5ı B 

EEF .Ol,aı BEEP „Ol,-101 NEXT a 

3030 IF sc)hi THEN LET hi=sscı PR 

INT AT 21,01 PAPER 21 INK 71" 
Nen High-Bcorsı "ıihi,ı FOR as=i 
TO 50ı BEEF .Ol,aı NEXT a 

=040 PAUSE 10: PAUSE 200 

#000 REH # Btart ® 

5010 ELS ı PRINT AT 4,0, INK 77," 
Sinclair 2X 5Spsetrum presentsi" 

4020 INK 3: BRIGHT lı RESTORE 40 

004 FOR d=6 TO 37: READ zi,22,23 

Ep 

5030 GO SUB Aiböı NEXT d 

#040 INK 2ı FÜR a=ö TO 30ı FOR b 

=30 TO a STEF -lı PRINT AT 15,bı1 

CHR$ 1455" "ı NMEIT bı NEIT a 

5050 PRINT AT 18,84 INK 44 "HI-8C 

ÖREı "hi 

6055 PRINT #1;AT 0,04 INK 41"Key 

sı Cursorkays to stsar aaggot" 

6040 PRINT AT 20,71 INK 5, "Gpiel 

zeitı “INT IFN at) /3s00) "IN 

T iFN atı/&0)3=-INT {FN a1)7/3500) # 

Ei" "INT FN at)=INT {FN al})/6o 

ao" 

6070 IF INKEYSCH"" THEN 60 TO 7 

680 80 TO 4040 

&100 FOR be=ezi1 TO z2 -STEP z3ı 
as=30 TO sn STEP -i 

6163 IF IMKEYS<>"" THEN GO TO 7 


BEEF 


INK 4 PAPE 
e0 TO 1100 


FOR 


LET Iemletlı P- 


FOR a=ji TO 200=-tiı LE 


—— 





#10 PRINT AT b,a;CHR# 145,1" Hı 
NEXT a: NEXT bı RETURN 

ot DATA 13,8,=1,0,9,10,1, 1,11, 
12,1,2,10,9,-1,2,8,13,1,4 

2210 DATA 13,8,-1,5,8, 8,1, 7, 11,1 
1,1,7,8,8,1,8,11,11,1,8,8,13,1,® 
6220 DATA 13,8,-1,11,8,8,1,12,13 
‚13,1,12,8,8,1,13,13,11,1,13,13, 
13,1,13,0,8,1,14,11,13,1,14 

5250 DATA 13,8,-1,15,8,8,1,17,13 
‚45,1,17,8,8,1,18,11,11,1,18,13, 
153,1,18,8,8,1,19,11,13,1,1® 
5240 DATA 8,13,1,21,8,8,1,22,13, 
15,1,22,8,8,1,23,13,13,1,23, 13,8 
„1.24 

4250 DATA B,B,1,25,8,8,1,27,8,13 
.1,28,8,8,1,29,8,8,1,30 


70001 
B000 FRINT AT 0,0," BESSERE 
Bee [7 
8 EB eg 
= EEE 5 DE 
Bölö PRINT "B ® Dun Dan 
auaB ua Su nu 
= a = 5 BE 5 BE DO 5 BRBEEEEEN 
aa 5 ma 5 8" 
BO26 PRINT "8 8 u 
& = Eu EEE 074 1 WEB 
5 BS22ESE Bu BD BusE MEN 
u u" 
50350 FRINT "BD DRasea u 
= DEE a 74H OU „GM DEBBEEEEE 
se ms mo "a8 
Das u 8“ 
B040 PRINT 'B ma BD Bar 
au mi MGU DEE 
Bee 2 0 DESSEN 
a: =" 
0050 PRINT "a gasass 0 u 
u 0 BESzan Ba m 3 BR 
a: u Ba m nass u 
u meaa m m" 
BOsc FRINT "BR 8 Eu 5 
B samen man 
some © 2 
na u. = 
BOTE FRINT "BEBERBEIBEE I 
BErzEETEIBe " 
Bl60ö RETURN 


B300 FOR a=i TO S+S#ele 

BS10 LET a=INT {RND#30)+Lı 

=INT (RNDe20) +1 

8520 IF SCREENE (z,=}%>" " THEN 

G0 TO 8810 

8530 FOR bei TO 101 
NEXT b 

8540 PRINT AT z,sıCHR# 147 
gSS0 FOR b=10 TO 0 STEP -1ı 
.008,bı NEXT b 

8540 NEXT aı RETURN 

7000 RESTORE 90004 FOR a=UER "a" 
TO USER "g"+7ı READ bı POKE a,bı 
NEXT aı RETURN 

9010 DATA 124,259,235,255,293,25 
=,259,126 
7015 DATA 50, 
24,60 

7020 DATA 50,124 255 255 235 258 
‚126,60 

7025 DATA 0,20,62,8,28,28,8,0 
7030 DATA 50,126, 207 ,255.240,248 
‚126,80 

7035 DATA 50,126,223,223,247,243 
‚114,48 

5040 DATA 48,114,243,247 223,223 


LET z 


BEEP .008,6bı 


BEEF 


124,243 ,255 ,15,31,1 
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ir Liebe Sem Eennie) In der en Homecunsler Ausgabe ist uns PFEF ein ntechni- 
scher Fehler unterlaufen, der nicht mehr rechtzeitig bis zum Redaktionsschluß zu beheben 
war. Aus diesem Grund veröffentlichen wir noch einmal an dieser Stelle das gesamte 

Die Redaktion 


Programm. Wir bitten um Verständnis. 





I DATA 62,0,50,89, 182,42, 100, 
59,00,192,52,2,209,1,22,39,230,] 
03.229,42, 175€ 

> DATA 71,30, 143,92, 1,53, 221 
‚232,231,112,203, 38, 211,82,59,50, 
143,92, 1,1773 

3 DATA 8,3,221,33,18,113,203, 
sg,111,82,71, 30,193, 92,1,53, 7,221 
33,34, 1491 

4 DATA 113,203,29, 111, 1,91 9,2 
21,33,538,113,205,38,111,1,12,11, 
221, 33,78,1857 

3 DATA 113,205,38,111,1,5,13, 
221,233,85, 113, 205, 58,111,1,5,13, 
221,32, 109,171? 

& DATA 112,203,38, 111, 223,203 
‚235,111,32,251,203,32,111, 33,232 
‚253, 175,43, 188,37, 2640 

# DATA 232, 23,70,108,229,82,7 
1,50, 193,92,1,9, 3,221,33, 136,113 
„208,58,111,2014 

8 DATA 1,5,5,221,33,155, 113,2 
05,58,111,1,5,7,221,33,175,113,2 
08,58, 111,1836 

7? DATA #2,3,50, 143, 72,1,9, 10, 
»21,33,18#, 113, 205,58, 111,62, 71, 
0,143,72,1716 

10 DATA 1,3, 12, 221,33, 203,113, 
203,38,111,652,4,30,133,89,1,3,14 
‚221,33, 1574 

il DATA 215,113, 202,38, 111,82, 
5,30,197,89,1,5,15, 221,33, 233,11 
3,209,58,111,2103 

12 DATA 225,203,25,111,32,231, 
205,32,111,1,0,0,237,47,227,114, 
237,57 ,22P7,114,2490 

i3 DATA 52,5,50, 212,114, 82,31, 
50,221, 114,62, 20,30, 222,114,50,2 
23,114,42,10,1898 

14 DATA 506,224, 114, 82,1,50, 225 
‚114,42,7,30,143, 72,52, 14,30,213 
„1194,52,3,1714 

15 DATA 50,220, 114,62,1,50,231 
‚114,452,1,30, 232,114, 173,20, 228, 
114,62,1,50, 1979 

i& DATA 234, 114, ,203,237,111,20 
3,34,112,205,32, 111, 82,149, 205,21 
5,110,38,8,92, 234, 2618 

17 DATA 224, 200,33, 16,39,179,4 
23,100, 32,232,29,213, 119,79 ,82, 23 
9,219, 234,230, 1,2678 

13 DATA 32,3,62,1,50,218, 114,6 
2,247, 219, 234,230, 16,32,3, 13,24, 
24,62, 239, 1907 

17 DATA 217, 234,230, 4,32,3, 12, 
24 ,15,62,247,219,254,230,1,32,40 
203,253,111,2219 

20 DATA 32,291,24,33,62,2, 108, 
48,29, 62,26, 189,56,23,62,0,50,14 
3, 72,39,1422 

21 DATA 215,119, 2095,213,110,82 
‚7,50, 143,92,121,90, 215, 114,203, 
215,110,30,217, 114, 2632 

22 DATA 294,1,490,23,58,218, 114 
‚254,1,32,75,50,217, 114,58, 215,1 
14,50,50,218,2174 

23 DATA 114,82,15,30,219, 114,1 
-7,4,0,33,197,7,203,181,3,24,39,2 
37,75, 218, 1810 

24 DATA 114,2093,207,110,173, 30 
‚133,92,52,151,215,50, 217,114, öi 
ı254,0,32,97,175,2995 

23 DATA 50,214, 114,50, 217,114, 
24,10,30,219,114,237, 73,218, 114, 
208, 207, 110, 42, 71,24B3 

26 DATA 50, 143, 92, #2,131,213,2 
21,39,36, 113,38, 220, 114,245, 221, 
126,3, 294,0, 202, 2381 

=? DATA 243, 108, 221,229,175,50 
‚143,72,221,70,1,221,78,0, 203,20 
7,110,52,49, 215, 2700 
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28 DATA 221,225,58,231,114,234 
‚1,40,643,4,120,254,18,32,14,30,2 
32,114,71,80, 2184 

27 DATA 254,3,32,2,52,1,390,232 
‚114,308,233,119,681,234,5,32,2,62 
‚12,30,1836 

30 DATA 233, 114,194,48, 114,221 
‚1284,2,203,71,40,10,12,121,254,2 
7,32,101,14,3,1P32 

31 DATA 24,97,13,62,2,103,32,7 
i,14,28,24,07,221,124,2,203,?1,9 
0,3,12,133? 

32 DATA 24,1,13,203,79,90,3,5, 
24,1,4,221, 126, 2,243, 42,3,183,32 
5,1279 

33 DATA 241,203, 199,248, 24,9,6 
2,209,1053,232,4,241,203,133, 243,82 
‚18,104,32,5,23589 

34 DATA 241,203, 207,245, 24,29, 
0,224, 114,104 34, 23,241 ,203,7#, 
40,19, 245,58, 224, 2717 

35 DATA 114,61,284,1,32,2,82,1 
0,30,224,114,241,203, 193, 2943, 241 

34 DATA 112,1,221,113,0,221,22 
9,58,223,114,50,193, 92,80, 254,8, 
32,2,62,1,19#8 

37 DATA 30, 2253, 114,203,207, 119 
‚38,231,114,254,1,62,152,490, 1,80 
‚215,221,223, 38,2403 

38 DATA 217, 114, 234,1,32,122,3 
8,218,114,168,32, 114,58, 217,114, 
194,40,6,51, 184, 2329 

37 DATA 40, 2,29, 104 ,221,229,17? 
=,209,1,22,1,27,1,209,207,110,42 
220, 114,1,1939 

40 DATA 10,0,9,34,228,114,58,7 
7,203,27,26,62,2,205,1,22,221,22 
3,221,227, 1985 

41 DATA 178,50, 193, #2, 221,70,1 
+221,78,0,203, 207, 110,62,49, 213, 
237,75,218,114,2543 

42 DATA 203,207, 110,52,49,213, 
221,229, 178,80, 214, 114,90, 217, 11 
4,221,119,3,221,22#,2023 

43 DATA 17,0,0,33,102,3,205,18 
1,3, 221, 225,58, 225, 114,50,30, 224 
‚114.07, 38, 2071 

44 DATA 220,114, 106,202, 138,11 
0,24,23,62, 16,184, 0, 18, 8,215, j 
14,61,185,48, 11, 2024 

a5 DATA >; 215,114, ı78,2,183,3 
5,3, 291, 204,697, 291, 221,33, 221,33, 
221,39, 221,39, 2430 

44 DATA 41, 2234,0,194,121,107,5 
8,223, 114,51,254,0,32,40, 173,205 
ri; 22,30, 221, 2201 

47 DATA 114, 5,0, 79, 581,239, 4,40 

‚31,50, 221,114, 208,207, 110, 52,1, 
=0,143,92, 1244 

48 DATA 52, 144, 215,52,2,205,1, 
22,205,112,113,38,222,119,50, 223 
„114,1935,1680, 105, 2403 

4? DATA 208,32,111,205, 169, 112 
ı205,159,112, 205,169, 112, 205,169 
‚312,203,159,112,173,30,2003 

so DATA 225,114, 205,1,22,1,5,1 
‚209,207,110,58,212,114,81,50,21 
2,114,4,0,1925 

Si DATA 79, 245, 205,27, 26,,62,2, 
203, 1,22,241,2534,0,90,89,32,19,95 
0,233,114,1933 

2 DATA 173,30,214,114,30,217, 
114, 205,237, 111,33, 181,109, 229,6 
2,71,30,193, 72,1, 2430 

53 DATA 5,3, 221,33, 234, 113,203 
‚58,111,1,5,7,221,33,19, 114,205, 
S8,111,1,1780 

54 DATA 10,9,221,33,43, 114,205 
+58, 111,1,10,12,221,33,54, 114,20 
“.58,111,275,1B48 





== DATA 208,24,111,232,251,203, 


32,111,62,7,530,143,72,02,14,205, 


213,110, 203, 250, 2307 
S# DATA 110,195,180,105,203,32 
‚111,33,57,110,227,62,71,30,143, 
72,42,88,1932,237,2313 
57 DATA 75,228, 114,55,43, 237,6 
pP 4, ‚42,62, ar, 50,143,72,1,8,9,22 
1,33, 132,1763 
“3 DATA 114, 209,58, 111,42,71,5 
0,143,92,1,9: s, 221,33, 170, 114,20 
59, 111,1, 1831 
5? DATA 13,8, 221,33,174, 114,20 
=,58,111,24,30,1,3,94,221,39, 65,1 
14,203,58, 1718 
#0 DATA Ill, 118, 5, 221,33,B8, 11 
4,2053,58,111,1,12,8,221,33, 107,1 
14,205,58, 1713 
54 DATA 111,1,9,11,221,23,118, 
114,2093,98,111,1,10,13,221,33,13 
9,119,203,38,1782 
ä2 DATA 111,223,208,25, 111,32, 
251,205,32,111,42,598,132,237,75; 
228, 114,35, 53,237, 2397 
63 DATA 54,46,4,237,67,88, 132, 
175,209,1,22,1,6,1,205,207,110,& 
2,53,215,1925 
64 DATA 1,15,1,203,207,110,237 
‚75,08, 152, 209,27,26,1,27,1,203, 
207, 110,62,1P82 
553 DATA 49, 215,178,50,143,92,& 
2,192,215, 205, 230,110,1793,139,10 
=3,205,32,111,205,230,2790 
56 DATA 110,30, 231,113,234,1,3 
26,179, 50,231, 114,24, 12,52, 1,50 
‚231,114,99, 19728 
57 DATA 234,114,50,30,234, 119, 
2053,24, 112,241, 203,32,111,82,7,9 
0,143, 92,62, 14,2176 
48 DATA 30,213,119,209, 213,110 
‚175,30,217,114,50,224,114,59,23 
4,114, 170, 2,50, 220, 2721 
59 DATA 114,209, 237,111,193,19 
0,1064,42,22, 215,120, 215, 121,215, 
201,19?,4,17,77, 295, 2843 
+0 DATA 203, 207,110,652,195, 215 
‚52, 144,215,82,197,219,241,6,10, 
79, 208,207, 110,52,2719 
ij DATA 146, 2193,42,149,215,82, 
150,215, 193,201,32, 193,70, ,4,6,&2 
2119,39, 18,2177 
72 DATA 252, 52,6,6,20, 119, 35,1 
5,232,42,321, SQ, 221,114, 9,222, 11 
4.50, 223, 114,2027 
73. DATA 201,42,127,217,234,230 
„1,201,62,2,205,1,22,&,1,14,3,20 
3,227,110, 2133 
73 DATA 42, 28,197, 203,203,10,1 
93,4,52,17,184,32,238, 201,221,22 
2,209,207,110,221,2827 
75 DATA 223,205,25,111,32,3,51 
‚51,201,221,126,0,259,0,200,213, 
221,229,62, 1,2433 
74a DATA 205,40,49,42, 20, 203,40 
‚05,239,5,54,62,1,205,40,45,203, 
240,23, 203, 1974 
77 DATA 112,111,221,223,221,33 
ı29,209,17,132,90,33,133,90, 1,23 
ı0,25,297, 178, 2116 
Be DATA 50,188, 70, 33,69, 88,17, 
97.688,45, 14,58, 655,88, 245, 177, 26,1 
19,1,29, 1931 
77 DATA 0,9, 119,39,39,39, 1,32, 
0,229,98,107,7,84, 73, 225,173, 16, 
232,241,1773 
Sc DATA 309,1,70,50,30,90,201,3 
3,0,60,17,200,179,1,0,4,237,176, 
1,0, 1416 
81 DATA 0,33, 200,173, 124,203,3 
7,182,119,25,3,42,4,164,32,244,23 
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3,200, 175, 24,2083 

82 DATA 34,92,201,197,213,17,0 
‚08,175,184,40,4,17,32,0,25,168,2 
>3,7,1258,1743 

83 DATA 209, 193, 201,237,95,230 
‚43,103,237,793,111,124,201,221,3 
3,76,113,22,19,30, 29973 

84 DATA 16,6, 10,197 ,82,1,221,1 
17,1,221,119,3,221,119,9,221,119 
‚7,221,114,2003 

83 DATA 0,221,113,4,21,28, 203, 
227,111,230,1,221,119,2,221,11#, 
5, 1,8,0,18080 

86 DATA 221,9,193, 14,214, 201,1 
‚4,3,205,207, 110,62, 71,530, 143,92 
‚1,20,0,1877 

87 DATA 17,233,113,1,9, 7,205, 2 
07,110,42,71,50, 143, #2,1,12,0,17 
‚200,114, 1464 

SB DATA 203,80,32,290,234, 114,1 
78,48, 215,38, 231, 114,254, 1,40, 14 
‚1,11,9,205,2102 

87 DATA 207,110,1,9,0,17, 223,1 
13,24,12,1,13,9,203,207,110, 1,5, 
0,17, 1204 

70 DATA 210,113,205, 80, 32,32,2 
51,52,9,249,1,15,11,203,207, 110, 
52,89,30,143,2092 

#1 DATA 92,241, 245,190, 40,215, 
42,1,2058,40,43,42,8,209,40,453,23 
7,3,95,241, 2293 

F2 DATA 243, 203,40,43,209, 2498, 
3,241, 41,294, 255, 32,212, 173,50,2 
17,114, ,50, 214,114, 2982 

#3 DATA 201,6,7, 120,243, 243,24 
5,245,62,1,205,40,45,52,80,205,4 
0,45,239,5,2343 

24 DATA 34, 241,205,90,49, 205,2 
0,143,92,508,2153,2737 

95 DATA 114,203, 213,110,175,20 
=,155,34,231,71,15,207,82, 7,390, 1 
43,92,508,215, 114, 2489 

5 DATA 203, 215,110,201,245,17 
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7,229,33,100,0,237,75,213,114,25 
7,65,40,1,207,223,2730 

97 DATA 193,2#41,201,82,03,32,8 
3,79,70,84,87,65,852,69,32,80,82, 
59,03,69, 1066 

#8 DATA 78,94,83,32,38,0,63,32 
‚78,32,67,32,65,32,73,32,69,32,8 
2,32, 1080 

#7 DATA 63,0,48,59,70,67,78,58 
‚22,89,79,63,82,83,47,76,70,32,6 
=.r1,1338 } 

100 DATA 45,73, 78,83,94,0,84,72 
,67,32,63, 04, 94, 45,67,75,32, 79,7 

101 DATA 49, 74,73, 67, 78,0,49, 768 
‚69,77,72,69,83,0,80,62,647,83,83 
‚32,1308 

102 DATA 82,80,69,547,69,32,84,7 
».32,82,69,67,69,73,88,69,0,70,8 
5,02,1343 

\03 DATA B4,72,597,82,32,73, 78,8 
3,04,02,85,57,B4, 73,77, 75,83,0,7 
5,69, 1432 

104 DATA 89,83,50,0,69,09,67,32 
‚53,32,04,77,32,77,79,85,69,32,7 
5,60, 126 

108 DATA "0, 84,0,32, Er 32,32, 36 
‚32,94,79,32,77,79,86,69,32,82,7 
3,71,1141 

106 DATA 72,84,0,32,39,32,32,48 
‚32,04,79,32,70,73,82,89,0,89,79 
‚88, 1113 

107 DATA 02,32,69, 70,59, 77,736 
9,583,58,0,132,32,32,84,72,69, 32, 
66,69, 1294 

109 DATA 78, 75,83,0,1393,32,32,8 
4,72,67,32,84,82,73,65,78,71,76, 
7,83, 13F0 

109 DATA 0,80,02,59,83,83,32,83 
‚80,69,67,69,32,04,79,32,03,64,6 
3,02,1334 

110 DATA 84,0,99,79,85,39,85,6# 
‚32,76,79,83,84,32,79,70,47,32,8 
3,72,1330 
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111 DATA 73,00,0,20,82,49,83,83 
‚32,93,80,65,47,49,32,84,79,32,5 
7,77,1319 

112 DATA 78,94,72,78,95,59, 0,07 
‚79,09, 82,32,70,73,71,72,84,0,?1 
‚79.1333 

113 DATA 79,48,32, 74,85,547,75,3 
2,33,0,69,76,78,32,53, 32,63, 72,7 
3,80,1169 

114 DATA 83,32,53,82,69,32, 75,6 
3,00,09,04,0,44,588,54, 32,09, 77,8 
=,32,13204 

115 DATA 58, 73,58, 32,53, 32,80,8 
2.59,83,84,89,0,71,79,79,58,32,7 
4,79, 1208 

1i& DATA 44, 0,00,92,69,03,83,32 
‚83,80,45,647,69,32,84,79,32,83,8 
4,55, 1318 

11? DATA 82,84,0,70,69,58,89,32° 
‚7,73,83,83,73,79,78,0,587, 77,78 
‚71,19%8 

118 DATA 82,45,84,85,74,45,84,7 
3,797, 78,83,32,33,0,89,79,89,39,8 
5,51 

119 DATA 32,66,82,79,73,89,78,3 
2,84,72,69,32,72,73,71,72,93,0,8 
3,67, 1233 

120 DATA 79,82,49,0,74,32,49,32 
‚86,32,6%,32,76,32,96,32,0,0,0,0 
‚858 
106060 PRINT "BITTE 55 SEKUMDEN WA 
RTEN*'*2400 BYTES WERDEN EINGELE 
SEN" 

1016 LET Ses4000: FOR K=1 TO 120 

LET Esü: FOR Jel TO 20: READ A 
: FOKE 5,A: LET E=E+A: LET Smöel 
: HEXT I 
1020 READ A: IF AC>E THEN BEEP 1 
‚i: PRINT "FEHLER IN ZEILE "Ik: 
STOP 
1030 NEXT K 
1040 'BEEP 1,1: PRINT ""HACHINENE 
ODE FERTIG ZUM AB-"""SPEICHERN" 
1050 SAVE "SHEAK.CODE*CODE 55000 
2400: STOP 


Auch in diesem Hefi können sich mög- 
licherweise Fehler eingeschlichen haben. 
Henn Sie diese „handfesten Mängel” 
feststellen, dann füllen Sie den Coupon 
„Fehlerhaftes Listing“ aus, und senden 
Sie diesen an die HOMECOMPUTER-Re- 
daktion, TRONIC-Herlag, Postfach 870, 


Teilnahmebedingungen: | + ein Listing ist nur dann fehlerhaft, 


wenn das Programm nach richtiger 
+ teilnehmen kann jeder HOMECOM- Programmiereingabe eine ERROR- 
PUTER-Leser Meldung ausgibt. 
+ Lohn für die „Mühe“: es werden fünf- | * nur die ausgefüllten Nachweis- 
mal 100 Mark an die schnellsten Ein- Coupons können. berücksichtigt 
sender vergeben, werden. 


Nachweis-Coupon für ein fehlerhaftes Listing in Homecomputer 


Hame'Wormanme: Sırabe, Br.: 


PLZ/CM: Datum Unterschrift 


Folgende Fehler sind in dem Listing: a 
(Programmname) 


a en ee 
(Seite) (Listingzeile) 


richtig it: 
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zeilenweise und deshalb schreiben wir in 
die erste Zeile 


program zahl; 

(am Ende jeder Zeile immer die „Return“ 
oder „Enter“-Taste drücken!) 

Damit geben wir dem Programm einen 
Namen. Kümmern Sie sich zunächst 
nıcht um Einzelheiten wie zum Beispiel 
das Semikolon am Ende der Zeile (ob- 
wohles, wie wirspäler sehen werden, von 
entscheidender Bedeutung ist). Der 
nächste Schritt besteht darin, dem Pro- 
gramm milzuteilen, daß es mit dereigent- 
lichen Verarbeitung beginnen soll. In die- 
sem ersten einfachen Programm wollen 
wirlediglicheine Maschine konstruieren, 
die eine Zahl am Bildschirm ausgibt (hier 
eine >). Es wird also zunächst von uns 
nichts bestimmtes eingegeben. Nun 
schreiben wir in die nächste Zeile 


beein 
und in die nächste Zeile den Befehl 


writeln (5) 

und da nun das Programm bereits zu En- 
de ist kommt in die nächste und letzte 
Zeile 


end, 


- i h . | 
(Der Punkt nach „end“ ist wichtig, also 


nicht weglassen). 





Die erste Zeile, also die Namensgebung, 
nennt man den Programmkop!, den Rest 
den Programmrumpf. Besonders der Pro- 
grammrumpfsiehtin der Regel allerdings 
wesentlich umfangreicher aus. 

Das gesamte. Programm hat jetzt folgen- 
des Aussehen: 


program zahl; 
begin 

writeln (5) 
end. 


Das Programm ist nun fertig und wir ver- 
lassen den Editor, um dieses jetzt arbei- 
ten zu lassen: Dazu hält man die „Cirl*- 
Taste gedrückt und drückt „K* und an- 
schließend „D*, Drücke nun auf die 
„Blank“-Taste (Wortzwischenraum) und 
es erscheint das Hauptmenü. Umdas Pro- 
eramm laufen zu lassen, muß es zuerst 
„kompiliert” werden (was das bedeutet, 
werden wir später noch erklären): dazu 
drückt man die „U"-Taste. Nach kurzer 
Zeit erscheint folgende Meldung (bei 
CPM-Rechnern sieht das etwas anders 
aus!)- 

Sollte eine Fehlermeldung erscheinen, 


| Schirm-Meldung R 
Compiling 

| 4 lines 
Code: 
Data: 


0004 paragraphıs Ks 
‚0002 paragraphs ( 


De ss 


hast Du sicher einen Tippfehler gemacht. 
Körrieiere ihn und compiliere nochmals. 
Wenn fehlerfrei kompiliert wurde, kann 
man das Programm:laufen lassen: drücke 
die „R“-Taste (RUN) und es erscheint auf 
dem Bildschirm die Zahl 3. 


Nun kann das Programm noch auf die 
Diskette gespeichert werden und zwar 
durch Drücken der Taste „S"(SAVE). Das 
Programm wird nun auf’ Diskette gespei- 
chert und kann ın der nächsten Lektion 
wiederverwendet werden. Wenn Du wis- 
sen willst, ob es auch wirklich auf Disket- 
te ist, drücke „D“ (DIR). Es erscheint die 
Zeile: Dir mask: - drücke einfach die _Re- 
turn“-Taste und es erscheint das Inhalts- 
verzeichnis (DIRECTORY) deiner Dis- 
keite, Dort müßte „ZAHL.PAS* stehen 
bzw. ein anderer Name, den Du dem Pro- 
kramm gegeben hast, 

Bis zum nachsten Mal! 


Autoren: Rüdiger Pfister / 
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Turbo-Pascal 3.0 + Turbo-Pascal 3.0 » Turbo-Pascal 3.0 





ASCH-LIST für Epson MX80TypII/MX82/FX80 


Pascal Programme verwenden sehr oft spe zielle ASCH-Zeichen wie beispielsweise die eckigen Klammern. Da heute viele Drucker 
aufden deutschen Zeichensatz eingestellt sind, können diese Zeichen nicht ausgedruckt werden. Um diesen Nachteilzu beheben, 


gibt es zwei Möglichkeiten: 
| 


2. Das folgende Programm eingeben, 


1. Drucker ölfnen und umschalten. (Nachteil: keine Umlaute für Texte) 


Das Programm wurde in Turbo-Pascal aufeinem CPC-464 geschrieben, dürfte jedoch auch auf jeden anderen Rechner lauffähig 


sein, 


Nach dem Start dieses Programms wird man nach dem Filenamen des zu druckenden Textes gefragt. Wichtig ist, daß dieser als 
ı ASCIE-Datei aufieiner Diskette abgelegt ist. Darauf kann man noch zwischen Normal- und Fettschrift wählen. 

Das Programm druckt nun das angegebene File inclusive den speziellen ASCII-Zeichen aufdem Drucker und dem Bildschirm aus. 

Turbo-Pascalerlaubt zur Kennzeichnung von Komme ntarenauch das Benutzen der geschweiften Klammern. Da die Klammernim 

Epson-Zeichensatz nicht enthalten sind, werden diese in den bekannten Standard **"und“*)” umgewandelt. 
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| Turbo 3.0 Version on CP/M 80 for CPC 464 


| 
F ' program list; (* Utility fuer Turbo-Pascal Programmierer *) 





(= Fascal-Textdatei auf Epson M-8E@TypIIIl ausgeben #) 
(#* verwendet wird der Driginal ASCII Zeichensatz #) 
(# mit allen Sonderzeichen [L]J/e # 

i(#* Der Deutsche Printer-Zeichensatz muss nicht abgeschaltet 
(#* Autor Frank Brall 13.12.85 #) 


| werden #) 
| var 


ei name :stringl[28]9; 
T. text} 
I! zeichen :char; | La BER | | 
ing SL bosisanı In dem nächsten Homecomputer 


procedure bitHon; 


Turbo-Pascal-Kurs: Teil 2 





ar begin 
m » pa | j = = Ä 
ee SE Ed ze - Variablen und Syntax in Turbo-Pascal 
enos 
@ EEE  - Arithmetik, erläutert am 
Be HERT Bee e bitBoffj praktischen Beispiel 
Br: egin 2, il rer 
write(lst,chr (27) ,chr (61))35 - Die Standardprozedur CLRSCR 
= end; 
- ‚begin 
I Ieirser; 
E writeln{’ ####+ LIST ####+ Copyright Frank Brall 19785’); 
writeln; 


write ("Filenamen 7? ’)5 
readin {name); 
assign (t,name); 
(#$3i-#) reset {t)35 (#$i+#) 
ar ok := ioresult=d; 
if not ok then writeln("’Datei ist nicht auf Diskette !’); 
1 if ok then 
begin 
writeln; 


2 writeln;5 
| 
write(i’<f> Fettdruck in> Normaldruck ?7’)3 


| readizeichen); 
| + jf zeichen = *f” then writetlst,chr (27),chr (69)); 
| a if zeichen = ’n” then writeilst,chr (Z27),chr (78))5 


bist writelnilst,’Turbo 3.8 Version on CP/M 88 for CPC 464 (c} F.Brall’}5 
| writelntlst); | 


Be writeln(lst)j; 
| | while not eof(t) do 
ı@.ı begin 
| | read(t,zeichen); 
| case zeichen of 
| ’[’:zeichen := chr (138); 
7 "J’zzeichen := chr (13295 
Ten "\"szeichen := chr (131); 
"@ar’rszeichen := chr i133)5 
ı ’e*’:begin write(lst,'(’); zeichen := "'*" end; 
| | "}’rbegin writetlst,’#*)5 zeichen ;= *)' end; 
Eu end (* case *)5 
| if ordizeichen) > 128 then 
a begin 
nn zeichen := chr (ord(izeichen}-128); 
HR bitBon; 
a end end (#* «while eof #); 
| else bitBoff3 end (#* ok #)35 
I write(lst,zeichen); closett); 


I write (zeichen); end. 
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Den meisten der Computer-Fans dürfte die bekannte Spielver- 
sion „Crazy Kong“ wohl geläufig sein. Für die noch Unbedarften 
hier eine kurze Erläuterung des Geschehens: Als furchtloser Held 


begeben Sie sich auf den beschwerlichen Weg, 


um Ihre Freundin 


aus den Klauen des Riesenaffen CRAZY KONG zu erretten. Die- 
ser Weg ist natürlich mit zahlreichen Gefahren gepflastert. 
Die Attraktivität dieses MSX-Beitrages ergibt sich aus den ab- 


An dieser Stelle veröffentlichen wir 
noch einige Programmierungs- 


tricks, die der Autor Roland G. 


Hiülsmann bei der Erstellung von 
CRAZY KONG benutzt hat, Wir 
hoffen, daß diese Tricks für andere 
potentielle Programmautoren eine 


wertvolle Hilfe bedeuten. 


SCREEN | wird in diesem Programm als 
Graphic-Screen benutzt. Es wurden eini- 
ze Tricks angewandt, die aus den Hand- 
büchern nıcht ersichtlich sind: 


1. Umdefinierung des Zeichensatzes 
Der benulzie Zeichensatz ıst ım Video- 
Ram abgelegt. Seine Adresse läßt sich 


leicht errechnen: VDP C4) * 2048. Die I! 


| wechslungsreichen Spielmotiven. Gesteuert werden kann wahl- 
' weise über Tastatur oder per Joystick. 


Zeilen 16 70-2230 verändern den Zeichen- 
satz. Die Kleinbuchstaben werden in die 
nötigen Karaphikzeichen verwandelt. 
(Wer Tiparbeit sparen will, kann Groß- 
buchstaben und Zahlen unverändert las- 
sen und die Zeilen 1850-1950 und 1970- 
220 weglassen. Aber der neue Zeichen- 
satz lohnt sıch! Er ist sehr gut lesbar!) 


2, Verschiedenfarbige Zeichen auf dem 
Bildschirm 

Bei SCREEN 1 sind ab Adresse 8192 die 
Farben der einzelnen Zeichen gespei- 
chert, 8192 enthält die Farben der Zei- 
chen U bıs 7,8193 die Farben der Zeichen 
8 bis 15 usw. Je 8 Zeichen haben immer 
die gleiche Farbkombination. Der Farb- 
wert errechnet sich wie folet: 16*Vorder- 
erundfarbe (INK) + Hintergrundfarbe 
(PAPER). wobei 0 für transparant steht. 


120 CLEAR 1000:CL8: SCREEN 1,2: COLOR 14,1 


vd 
130. DEFINT A-2 


140 DEF FRSCRIR, TIeVPBERtCH- 3) Nr Ir32E CL 


Yr4aıSsBrl)+61l44) 
150 KEYOFF 


160 SB=VDP(S)7+&H80: SY=5B; SX=5B+1: TY=5B+4 


 TX=5B+5: UT=5B+8: UX=5B+9 


170 WIDTH 32: PRINT " 
Bu 2,6 


HVELSRANB : 
tr 
175 GOSUR 5000 


180 GOSUE 1680: GOSUB 1410:G0SUB 


® 1986 BY EOLAND G 
PRINT "CRAZY KON 


1360 


190 DIM RESC13: RESCOISSPRITESAl): RES Cl} 
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Action / Spannung / 
abwechslungsreiches 
Spielgeschehen / 
attraktive 9) 








pielaufgabe 


Transparent bedeutel, daß die mit 
COLOR eingestellte Farbe benutzt wird, 
Die Zeile 240 bis 270 stellen die Farben 
der Kleinbuchstaben ein. 


3, Spritebewegung durch VPOKE und 
VPEEK 

Die Interupt-Routine (1230 - 1350) 
steuert die Fässer-Sprites. Die Variablen 
5X bis UX undS5Y bis UY werden in Zeile 
160 eingestellt. VDP(5)*&H80 ist der Be- 


‚ginn der Sprite-Attribut-Tabelle. Jedes, 


der 32 möglichen Sprites belegt vier Spei- 
cherstellen, wobei die jeweils ersten bei- 
den die Position auf dem Bildschirm an- 
geben. Zur Bewegung reicht es, die ent- 
sprechenden Speicherstellen durch 
YPOKE zu verändern. Mittels VPEEK 
kann festgestellt werden, wo sich das 
Sprite befindet. 


Eingabehinweise: 


Die Zeilen 380 bis 1190 sind für den Gra- 
phikaufbau wichtig. Achten Sie auf die 
Anzahl der Leerfelder und die Position 
der Anlührungszeichen (”)! Erleichtert 
wird die Eingabe, wenn Sie bei SCREEN 


ü den Befehl WIDTH 32 eingeben. Je- 


weils 3 „e" stehen dann immer genau un- 


| tereinander. Das erste Anführungszei- 
chen steht am Ende einer Bildschirmzei- 





je! 


Für Tippfaule: 
Die Zeilen 1850 bis 1940.und 1970 bis 2220 
können weggelassen werden. Sie verzich- 
ten dann auf einen neuen Zeichensatz, 
Wenn Sie mit einem Spiel-Screen zufrie- 
den sind, lassen Sie die Zeilen 880 bis 1030 
und 1120 bis 1190 weg, Sie verzichten dann 
auf die Spielfeider 1? und 4. Selbst 
schuld! 

Zeile 330 muß dann heißen; 
GOSUB 1040 
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SPRITES (16): RE=0 

200. DIM LEStI1}3:LEL(O)I=SSPRITES ZI: LES (II = 

SPRITES(15}:LE=D 

210 PRIBST:PRIBT: PRINT TAB{8}"1 = KEYBOAR 

D": PRIST: PRINT TAB{8)"2 = JOYSTICK" 

20. AS=SINHRETE: IF A&CH"1” AND ASi>"Z" THE 

H 220 

230 LET KB=VAL(AS)-] 

240 VPOKE 8204,16%6 

zu0 WFORE 8205,19%7 

260 VPOKE 8206,16%3 

270 VPOKE 8207,16#5 

280 WIDTH 32 

290: LOGATE 2,23: FRINT "LIVES: _ SCORE: ___ 
HISC: se] 

>00 HSceh 

310 5Sc=b: S=0: Le4: LV=e0: Tse-4: J=0 

320 S=5+1:LV=LV+1:5P=17:1F LV>4 THER LV= 





330 ON LV GOSUB 880,960, 1040, 1120 

340 SPRITEOFF: FUTSPRITE 10, (255, 2003 

SU LOCATE %,2: PRINT "qr" 

oz IF PLAYt{3) THEB 252 

355 GOSUB 1360: FOR I=1 TO 20:50UED 13,0: 
FOR P=1 TO 25: NEXT P,I:LOCATE 9,2: PRINT 
360 GO=EEDI-TIME)} 

370 LOCATE 8,23: PEIBT USING "#";L;: LOCAT 
E 27,23: PRINT USING "aaa HSC; : LOCATE 1 
6,23: PEIET USING "SC: : LOCATE 12,22 
t:PRIHT "LEVEL:";S; 

en PUT SPRITE 0, {165+RND{1)#216%310, 277,15 


aus PUT SPRITE 1, t16+RNDt1)EF16#10, 91), 13 
400 PUT SPRITE 2, (16+RND(1)%316*10, 155), 1 


410 Ubs4: TDes: SD=4 

420 ON SPRITE GOSUB 740:080 INTERVAL=5 60 

SUB 1230 

430 SPRITBON: INTERVALCH 

440 X=230: T=155 

450 BEBP:BEEP: BEEF 

450 PUTSPRITE 10, X, Y),11,5P 

470 QS=EN SCHRIX,T}):5F=17 

480 IF J=0 THEN IF STRIG(KB> TEEN Je1:75 
=-4:YL=Y-24:YOö=eY: IF YL{1l0 THEN YL=10 

#50 IF J THEN 510 

500 INK=SSTICK{KBI 

510 IF INK=7 THEN Isi-4: IF J=1 THEN Spa 
ELSE S5P=2: SPRITES{SP)=LES (LEI: LE=1-LE 
520 IF INK=3 THEN X=%#+4: IF IJ=1 THEN SPf=5 
ELSE SP=1:SPRITES(SP)=RES (RE): RE=1-RE 

530 IF J THEN 570 

540 IF INK=5 THES IF QS=-ASct"e'") OR FBSC 
RiX,T+lO)=sASct"e") THEN IF FNSCRIX,Y+10) 
«>32 THEN TeY+4:5P=3 

550 IF INK=1 THEN IF QS5=15Ct"e") DR SS=A 

SGi"h") THEN Y=T-4:5P=3 

560 IF FNSCRILX, T+Hör3c>ASct"h") AND FHSCHt 

X,T+rarc>ASct"e") THEN GOBSUE 740 

570 IF QS=ASCt"y") THEN SC=5C+5035: G0O5SUB 
650 

580. IF OS=ASCc"x") THEN-5C=5C+410%#5: GOSUB 
550 

590 IF SS=ASCt"o") THEN GOSUB 740 

00 IE Y=11 AND J=0 THER GOIO 710 

510 IF J=0 THEN 640 

820 Tetris: IF Ti=TYL THEN Ti 

530 IF Y=T6 THEN I=0: Y5=-4 

640 GOTO 460 

G650.BEEF 

660 LOGATE  (I-3338#+]1, TradN8FrT: PRINT " " 


70 -LOCATE 16, 23: BEEP 

580 PRINT USING "ARss" ;5C; 

6a0 IF SC>HSC THEN HSc=5t 

700 BEEP: RETURN 

710 GOSUB 5000: FOR I=0 TO 40: PUTSPEITE 1 
0,476,113, REDi13#12+2: NEXT 1 

720 5C=5G+10035: IF HSC{SC THEN HSc=5t 
730 GOTO 320 


-]., "ag in, | 3. Mm 5 £ 
; Sen - rn va E— gan. 
nz SL et Sp) Zn Feen 
2 I ar = = wi ln + 7 rm z u 0 
na IE He ea Be ne © m 
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740 INTERVAL ON: SPRITEOFF: FOR 1=Y TO 163 
750 PUT SPRITE 10, (X, 13, 11,4 

760 SOUND 0, 1:SODUND 8,10:FOR P=1 10 5: WE 

XT P:NEXT I 

770 SOUND 7,31: S0UND 9, 0:S0UND 10,16:50U 

ED 12,20:S0USD 13,0 

780 J=0 

790 Bs1:FOR 1=0 TO 40: FOR P=0 TO 20:N8XT 
P 

800 PUT SPRITE 7, (X-2,161), 11, 7+B: B=1-B: 

WEXT I 

810. PUT SPRITE.7, (255,200) 

220 LeL-1: IR L>=0 THEN LOCATE 8, 23: PRINT 
USING "R";L; 

830 IF L?=0 THEE GOSUB 1380: SPRITEON: RET 
URN 430 

B840 LOCATE 11,11: PRINT "GAME DVER" 

850 IF HOT STRIGCKBI THEN 850 

360 RETURE 310 

870 GOTO 870 

380 LOCATE 2,0: PRINT " 


0.86 “; 
890 PRIET 
G0onD PRINT " hp 
ab hhhh 
edh e 
910. FEINT " hhhhhbhh 
hbhbhhhhhbhbhhkhhhhhhhh x 
Y LE 

= e " 
g20 PRINT B hhhbbhbh 
hhhhbhhhhhhhhhhhhhbhbh re y 

Y u 
0 PH 

930 FRINT " hhhhhhh 
bhhahbhhhhhhhhhhhhbhah % Y 
= vo 
£ = rE 
940 PRINT m hhhhhh 
hhhhhhhhhhhbhhhhhhhhhh Y üb % 

Y x [= 


E 
Khhbhbhbhbhbhhhbhbbhhhbhhhhhhhh 

950 RETUEH 

D60 .LOGATE 2,0: PRINT "____ 


0.8.6" 
TO PRINT 
GB0b PRINT De hp 
ab hhhh 
ed ®& 
990 FRINT " hbhhhhh 
hhhhhhbhh hhhhhhhhhhh x 
ya # 

e 6 eo" 
1000 PRIKT . hhhhh 
huhbhhhhhbh hhhhhhhhh “ ay 

Y a 0 
e 1 " 
10109 PRIHT " hhbhhh 
hhhhkhhh hhhhhhhhhhh H „ 
ayoa cı 

= E = “ 

1020- PRINT h bhhhhh 
hhhhhhhhhahhhhhhhhhhh yen * 
= en 
2 
hhhhhhhhhhhhhbhahhh bhhhbhhhhh " 

1630 RETURN 
1040.:LOCATE 2,0: PRINT " CR AEN 
KO NG" 

1050 FRINT 
10650 PRINT \ h 
pP ab hhhh 

cdh e 
ö 
1070 FRINT " -hhhbhb 
hhhhhhhh hhhhhhhhhhh ei 
Y - 
Er) a" 
1080 PRINT n hhhhh 


hhhhhhhhhh 


hhhhhhhh “ y 





mm = = ._ -= — [u 








24,96, 224, 192, 128, 128,128, 192,0,0,0,0 DB Im 
| Yy a 1400 DATA 1, 31,693, 126, 127,127, 127, 127,6 Tea 
| ie) ' 3,31,15,25,16,0,0,0,0,128,192,224,240,24 Ei 
| 1090 PRINT ar hhhhhh DO, 56 ‚128, 192, 128, Oi 128, 192, 0,0,0,0 j ei 
| ; hhhbhihh hahbhhhhhh x y 1500 DATA 16,91,69,126,127,127, 127,127, fans) 
| | ya 63,31,6,6,7,0,0,0,0,128, 192, 224,240,240, Sr 
| © e “ 96,128, 192,128,0,0,0,0,0,0,0 a 
| 1100 PRINT " hhhhh 1510 DATA 2,31,63,119,255,255,111,31,63 | 
| | hhhhhhhhh hhhhhh yo x ‚31,156,25,48,0,0,0,0,128,102, 224,224,224 ei 
| * . ‚224, 224,192, 128,0,128,128,0,0,0,0 a 

e 1520 DATA 15, 31,63, 119, 255,255, 111,31,6 hatat 
| hahhhh hhhhhh bhbbhhhbh " 3,31,6,8,14,0,0,0,0,128, 192, 224, 224,224, = 
8 | 1110 RETURN 224, 224,192,128,0,0,0,0,0,0,0 0 
| 1120 LOCATE 2,0:PRINT " CRAZY 1530 DATA 3,31,83,127,127,127,127,127,6 ri 
| K_O NG" 3,31,48,25,9,9,0,0,0,128, 102224. 24u.24 , 5“ 

1130 PRINT ‚224,224,192,128,192,128,0,0,0,0,0 '®= Bu 

1140 PRINT " h 1540 DATA 4,57,25,25,63,127,127,127,127 zir 
ee ED eı ab bhhh oo ‚127,127,63,31,0,0,0,0,192, 128, 128,162,2 m 
D; cdh ee 0 24,224, 224,224, 224,.224,192,128,0,0,0,0 u Bu 
oop! 1550 DATA 5,31,63,128,127,127,127,63,31 Eu 

1150 PRINT " hhhhhh ‚15,25,48,32,0,0,0,0,128, 192, 224,240, 240 BE 
hhhhhhhh hhhhhhhhhhh = 2 le ‚224,192,128,0,224,0,0,0,0,0,0 > 

| yoon e e De 1560 DATA 6,31,63,119,255,255,127,63,31 ie 

ı  Doo « 1 [© Don a" ‚15,121,0,0,0,0,0,0,128,192, 224, 240, 240, En 

ı 1160 PRINT " hhhbbh 224,192,128,0,128,192,64.0,0,0,0 ı E 

hhhhhhhh hhhhhhhhhh o vo 1570 DATA 0,0,0,28,34,73,148, 170,170, 14 Fri 

@- YyODo 9@ “ D e 4,73,34,28,0,0,0,0,0,0,0,0,0, 128, 128,128 FE 

- DOo I} o e oo00 8" ‚128,0,0,0,0,0,0,0 we 
1170 PRINT " hhhhhh 1580 DATA 7,2,32,0,0,128,8,0,0,0,0,0,0, Aut 

‚ hhhhhhhh hhhhhhhhhh x eroe 0,0,0,0,32,0,4,0,1,0,144,0,0,0,0,0,0,0,0 TE - 

yooo e © oe ‚o u 

.  Dooa & £ oe ooo a " 1590 DATA 8,8,0,64,0,0,32,0,0,0,0,0,0,0 jr 

x 1180 PRINT " hhhhh ‚0,0,0,128,8,0,2,0,2,8,0,0,0,0,0,0,0,0,0 - 
n hhhhhhhhhhhhhhhhhhhhhhh Y e ox 1600 DATA. 9,102, 255,127, 127,127, 127,127 '“ 5 
aooo xe e e ‚127,255,127,63,31,0,0,0,0,96, 240, 224,22 Da 

| Don = ü ecoo ee 4,224, 224,224,224,240,224,192,128,0,0,0, '„ 2 
Pi hhhhhbhhhbhhhhhhh hhhhhhhhh " 0 © 

1190 RETURN 1610 DATA 10,0,0,127,0,3,2998,258,63,15, ı Her, 

' . j200 RETURN 7,3493,9,1,1,63,0,0,255, 128, 240, 204, 194,1 Keen] 

‚ 1220 DEF FH SCR(X, YI=X+Y 1620 DATA 11,0,0,7,0,3,255,255,63,15,7, =! 

ı 1230 VPOKE{SX), VPEEK(SX)+SD 3,3,3,1,1,63,0,0,240, 128, 240,204, 194, 193, ‚lea 

' 1240 IF VPEEE(SX)<242 AND VPREK(SX) >16 225,255, 255,254, 252,16,19, 252 Fi 

ı THEN GOTO 1270 1630 DATA 12,0,0,0,0,0,0,0,0,0,0,0,0,0, en 

' 12560 VPOKEB SY, VPEEK(SY)+32: IF 5D=4 THEN 0,0,0,0,0,0,66,36,31,31,36,66,0,0,0,0,0, » We 

SDe-4: VPOHE 5X, 240 ELSE 5D=4:VPOKE 5X, 20 0,0 nt 

1250 IF VPEEK{SY)>185 THEN VFOKE SY, 27:V 1640 DATA 13.0,0,0,0,0,0,0,0,0,0,0,0,0, -}] 

FORE 5X, 20:5D=4 0,0,0,0,0,16,16,15,31,255,8,8,8,0,0,0,0, 6 

; 1270 VPORBATX), VPEEK{TXI+TD 0,0 2 

1280 IF VPEEKLITXI<242 AND VPEEBK{TXI>16 T 1650 DATA 14,31,51,99,255,89,89,127,76, [ae 

HEN GOTO 1310 76,127,255,25,0,0,0,0,128,64,160,240, 160 Far 

1290 VPOKE TY, VPEEK(TY)+32:1IF TDb=4 THEN ‚160,224, 224,224, 224,240, 128,0,0,0,0 je 
TD=-4:VPOKE TX,240 ELSE TD=4: VPOKE TX, 20 1880 DATA -1 ee 
1300 IE VPEEK{TY)I>185 THEN VPOKE TY,27:V 1670 REM * ZEICHENGENERATOR + kiR: 

POKE TX, 20: Tb=4 1680 BASIS=VDP<4)%220485: RESTORE 1720 er 

1310 VPOKE{UX) , VPEEK{UXI+UD 1690 READ CHS: IF CHS="ande" THEN RETURN Ei 

1320 IF VPEEK(UX}<242 AND VPEEK{UXI>16 T 1700 ADR=BASIS+BHASC<CHS) u: 
HEN RETURN 1710 FOR I=ADR TO ADR+7T:READ X: VPOKE 1,X Keil 
| 1330 VPOKE UY, VPREK(UYI+32: IM UD=4 THEN : NEXT 1:GOTO 1690 = 
‚ UD=-4: VPOKE UX,240 ELSE UD=4:VPOKE UX,20 1720 DATA "o",0,60,66,00,90,66,60,0 KEh 
ı 1340 IF VPEEK{UY}>185 THEN VPOKE DV, 27:Y 1730 DATA "ar, 11,7,13,15,6,7,7,15 ‚ee 
‚  POKE 0X, 20: UD=4 1740 DATA "b", 208,224, 176,240, 96,224, 224 Mi 

1350 RETURN ‚240 5 

1360 REM % TOHEIBSTELLUNG &* 1750 DATA "c", 127, 255, 255, 31,63, 124,120, + 

' 1370 RESTORE 1390: FOR I=0 TO 12 120 De 

© ,ı 1380 RBAD X:SOUND 1,X:NEXT 1: RETURN 1760 DATA "d" 254, 255,255, 248, 252,62,30, a» 5 
1390 DATA 177,2,150,0,0,0,258 14 hr 

1400 DATA 60,0,18,0,0,40,1 1770 DATA "np" ‚58,52, 858,16,56, 60,126, 24 "m 

1410 REM % SPRITEERZEUGUNG + 1780 DATA "aq",0,173, 169, 237,169,41,13,0' m wu 

1420 RESTORE 1470 1790 DATA "r",0,58,42,58,34,34, 180,34 “| 

1430 READ HR 1800 DATA "h" 255, 255, 24, 36, 66, 129, 255,2 . 8 

1440 IE NR=-1 THEN RETUREH ala) “ 

1450 Zus=t" 1810 DATA "x",0,36,108,42,42,36,0,0 Ei, 

1480 FOR I=e1 TO 32: READ X: ZUS=ZWS+CHRs ck 1820 DATA "y",0,114,89,101,21,98,0,0 de 

I):NEXT I: SPRITESCNRI=ZWE:GOTO 1430 1530 DATA "e", 66, 126,66,66,66,126, 66,55 

1470 REM % SPRITE-DATEN x 1840 DATA " ",0,0,0,0,0,0,0,0 at 

1480 DATA 17,31,63,118,127,121, 111,112, 1850 DATA "0", 0,60,102, 110,118, 102,60, 0 2 

53,31, 25, 25,57,0,0,0,0,128, 192, 224, 224,2 1850 DATA "1",0,8,24,56,24,24,60,0 Br 
CRAZ r KON G: = KoNes rg auf Ihrem MSX-Computer ” 

: | EHRT NE eNT ee 
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Ii@ . 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


392: 


355: 
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"2" 0,60,102,12,24,48,126,0 
"3", 0,60,102,12,6,102,60,0 
"4, 0,.28,44,76,1265,12,30,0 
"Eu 0.128,98, 124,6,102,60,0 
"5 0,60,06,124,102,102,60,0 
"7" 0, 126,5,12,24,48,96,0 
"a", 0,60,102,60,102,102,600,09 
.o" 0,60,102,102,62,8,80,0 
ei 0 0,205, 205,0, 255, 255,0 


"gu" 50,.66,153,161,161,153,66, 


"a",0,80,102,102,128, 102,102, 


6 


Ö 


"B",0,124,102,124,102,102,124, 


"cc" 0,60,102,96,96,102,60,0 
"Tr 0,124, 102,102, 102,102, 124, 


“gr 0,124,96,120,96,96,124,0 
"m", 0,124, 96, 120,96, 96,96,0 
"g",0,60,102,96,110,102,60,0 
"g", 0,102, 102,126,102,102,102, 


"7",0,60, 24,24, 24,24,60,0 
"J",0,126,6,6,6,102,60,0 
"H,0, 102,108, 120,108,102,102, 


602 710: 22466 
32432 1720: 60560 






P4eF. „ini ie 


A (  — 





2080 
2090 
2100 
2110 
2120 
2130 
2140 
Ö 

2150 
2160 
2170 
2180 
2190 
2200 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"L",0,95,96,96,98,968, 126,0 
"4",0,98,118,126,106,08,98,0 
"y" ,0,102,118,128,110,102,98,0 
"O",0,80,102,102,102,102,80,0 
"pur, 0,124,102,102,124,96,96,0 
"o",0,650,102,102,118,110,62,0 
"m", 0,124,102,102,124,102,102, 


"g",0,62,98,60,6,102,60,0 

"Tu 0,126,24,24,24,24,24,0 
"=. 0,102,102,102,102,102,60,0 
"y".0,102,102,102,102,60,24,0 
"y".0,98,98,106,106,126,52,0 
"x 0,102,102,60,60,102,102,0 





2210 
2220 
2230 
4990 
5000 


DATA "Y",0,102,102,102, 62,6, 124,0 
DATA "Z",.0, 126,12, 24,24,48, 126,0 
DATA "ande! 

BEM # MUSIE % 
Mis="odf#eeff#. fBeef#. f#Beef#. I#Besef 
#8. I#löc#BdßessenJa2" 

5010 K23="oä4rB. albaßf#Baaaß. albadfT#daanad 
‚alög#öndeeeend3a2" 

5020 B5="r16": Mi="t200s1m20000"+M15+M2$+ 
wWzuH Hl 

5030 PLAY 33,53, Mi 

5040 RETURN 
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Geräten Sie nicht 
so in Hektik wie 
dieser Clown auf 
unserer  Abbil- 
dung. Sonst könn- 
te Ihnen das glei- 
che passieren und 
dann besitzen Sie 
für ein Engage- 
ment im TI-Zir- 
kus keine Chance 
mehr. 








Ihr TI-99-Computer befördert Sie: 
dieses Mal in den Bereich der 
künstlerisch-creativen Berufe 


Der TI-Zirkus benötigt unbedingt einen neu- 
en Clown, da der alte zur besser zahlenden 
Konkurrenz nach Amerika abgewandert ist, 
Als Ralf, der zur Zeit ohne Engagement ist, 
von der freien Stelle „Wind bekommt“, macht 
er sich sofort auf den Weg. Dort angekom- 
men, verlangt der Direktor des Unterneh- 
mens natürlich von Ralf eine Solovorstel- 
lung. 

Beweisen Sie, daß Sie zu einer neuen Attrak- 
tion des TI-Zirkus werden können. 


Vorhang auf! Zeigen Sie dem Direktor was Sie alles kön- 
nen! Im ersten Bild springen Sie von Trampolin zu Tram- 
—_ polin über die Bühne und müssen sprin- 
genden Bällen und herumschwirrenden 
Vögeln ausweichen. Im zweiten Bild ba- 
lancieren Sie auf Bällen, was einfacher 
aussieht als es ist. Da so eine Zirkusvor- 
stellung natürlich nicht ewig dauern darf, 
arbeiten Sie auch gegen die Zeit. Um in 
das Ensemble aufgenommen zu werden, 
dürfen Sie höchstens fünf Fehler bege- 
hen, aber keinenfalls die Zeit überschrei- 
ten. Je schneller Sie Ihr Programm durch- 
ziehen können, desto höher wird die 
Punktezahl (spätere Gage?!) sein. 
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ı us zuei 


Einige Tips: 
Nach dem Einladen von Kassette und 
Starten mit „RUN“, können Sie eine aus- 
führliche Spielanleitung anwählen. In 
dieser ist die genaue Handhabung des 
Spiels erklärt. 
Zum Eintippen ist folgendes zu vermer- 
ken: Einige Programmzeilen sind länger 
als fünf Bildschirmzeilen. Sie müssen al- 
so unvollständig eingegeben werden, mit 
„FCETN'REDO" zurückgeholt und dann 

| vervollständigt werden. 

| Das Spiel ist für die TI-9WV4A Konsole 
mit Extended-Basic und Joystick 1 ge- 

schrieben und belegt bis auf wenige Bytes 
den gesamten Speicher, Besitzer eines 
Diskettenlaufwerks ohne Speichererwei- 
terune müssen dieses ausschalten, da das 
Programm sonst nicht läuft. 





100 HET 
110 !% 3 
120 !* RALF DER CLOWN + 
130 !4--- nenn x 
140 !# icli 1985 BY & 
150 !# CHRISTIAN ACKERL # 
180 !# STATDPLATZ 22/A % 
170 '# A-4940 VOECKLABRUCK # 
30 1% k 
190 TE ennnnn nn nn nn nn 
200 1% TI-PP/4A & * 
210 !# »%-BASICEIOYSTICKI #& 
2 EN 
230! 

za 

20 CALL ELEAR 2; DISPLAY ATI1,11:” 

RALF DER CLOWN Eiern 
-----" :: CELL SHARIS4, "3C42P FALALPFIZSC 
e) 

260 DISPLAT ATI12,11:" SPIELANLEITUNG I 
J/{M1? I" 22 DISPLAY ATI24,1h:* 8 1985 BY 


EHRISTIAN ACKERL" :: ACCEPT ATI12,253)51 
ZEI-LIBEEF VALIDATEL"IN"I:SP# :: IF SPes 
"= THEN 250 
270 IF SFP£="N" THEN 430 ELSE CALL CLEAR 
:; DISPLAY AT, EHE” SEIELANLETIU 
MEN 0.0007 a a 
280 DISPLAY AT(3,1):"das spiel besteht a 
pruefungen,die ralf bestehenmus 
a,d2a=eit er den job im zircus bekommt. 
1 
250 DIEPLAY AT{i?7,1):"die erste pruefung 
besteht darin,dass ralf einmal zum rec 
hten, dann zurueck zum linken rand spr 
inge." 
=n0 DISPLAY ATIL1,1):"um dieses zu errei 
chen, nuessen sie den joystick in di 
e genuenschte richtung drusecken.” 

310 DISPLAY ATI15,1):"das waere nicht so 
schner, kenn da nicht voegel und 5P 
ringerde baelle waeren,mitdenen man nich 
t zusammen" 

320 DIEPLAY AT!1P,1):"stossen darf.sie m 
uessen auch die vorgegebene zeit ei 
nhalten.” 

330 DISPLAY ATI24,1):* 
ER!!i®r 75 CALL KEY(O,K,S]:: 

230 ELSE CALL CLEAR 
340 DISPLAY AT(iL,1)i"ab und zu erscheint 
ueber den voegeln ein affe,der ral 
f,swenn er veber Ihm ist, und sie den feu 
erknropf Jrus-" 
3s0 DISPLAY AT(5,1):"cken,ein stueck mie 


WEITER MIT ENT 
IF Ki+12 THEN 


r u re - 
rn 2 en E i = - 
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R 
A 
L 
D 
E 
R 
IC 
L 
0) 
W 
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nS -. ht PR un» 





—— = 


nimmt. dasbrinse) Zusastzlich Bunkte, on 


kann aber auch sein,dass er ralf gleich 
KHieder runterkirft." 
3&E0 DISFLAT ATil0O,11: "nenn sie ralf nied, 
er zum rechten rand gebracht haben, mu 
essen sie den joystick nach links dru 
ecken.dann” 
370 DISPLAY ATI14,1]:"bekommen sie fuer 
die uebri-ge zeit einen bonus,und ko 
mmen in das zneite bild. hier muss ralfı 
auf baellen” 
380 DISPLAY ATilB,1]:"jonglieren und fue 
nfmal den ball,auf dem er steht in dervo 
rgegebenen zeit wechseln." | 
390 DISPLAY ATi24,1):* 
ER!!" 7: CALL KETIO,K,S}:: 
370 ELSE CALL CLEAR 
400 DISFLAYT ATtL,1):"sie koennen den balı 
1 auf demraif steht,zmit dem joystick hin 
und her lerken muessen aber aufpassen, 
dass der ball" 
410 DISPLAY AT(3,11: "auf dem er steht ni 
echt mit einem anderen ball zusammen-sto 
esst, wenn sie den ba 
11 wechseln" 
420 DISPLAY ATIF,1):"nollen,muessen sie 


WEITER MIT ENT 
IF k%>13 THEN 


mit dem joystick in die gewmuenschte ric 
htung lenken und den feuerknopf drue 
eken.” 


430 DISPLAY AT(20,1):" WIEL SPASS ALS C 
LOWN ıı® :: DISPLAY ATI24,1):* WEITE 
R MIT ENTER!!" :: CALL KEYIO,K,S):: IF K 
“>13 THEN 430 ELSE CALL CLEAR 

440 CALL CLEAR :: CALL SEREENEZIT: CALL 

MAGNIFY (3) 

450 CALL COLOR10,2,2,1,2,2,2,8,2,8,8,2): 
: CALL CHAR (40, "FFBFBFFFFFDFDFFFFFFFFEFE 
FCFCFOFBFOFOEOEOCOCOBOBOFFFEFBEOB0000000 
.) 

460 CALL CHAR (44, "FFFFFFFFFFFEFSEOFFFFFF 
?FFFaF LFOPFFFFFFFEFEFCFBEO0101010387C7C3B 
10*) 

470 CALL CHAR{P1,"FFFF?FFFIFSFLFLFOFOFO? 
0703030 101FF?F LFOFOLOOODOOFFFFFFFFFFFFLF 
07") 

480 CALL CHAR (36, "000000000001073ESEFFOO 
00000000000000000000E0FBICIFFF*) 

470 CALL CHAR(&O, "000000000001073ESEFEOE 
01010000000000000000E0F@1C1FIF101010906* 
j 


500 CALL CHARLPS, "00000000070F1712121310 
10160107050000C 1EIDFFFCF3E080804*) 

310 CALL CHAR LO2, "O0003F3F7F?FESDDBEDDE 
EFFTEBDDBEFFOOOOFBFAFCFLBEFSFATSAEDEAETFEF 
AFFE") 

S20 CALL CHAR{10s, "000000007F7FFF8000000 
OO0FCFCFEOZ*) 

=30 CALL CHAR(10B, "OFrLFSFTFFFFFFFFFFFFFF 
FFFFF3FLFOFEOFBFLFEFEFFFFFFFFFFFFFEFEFCF 
BEO*) 

40 CALL CHAR(112, "O7LFSF?373FEFEFEFEEEE 
7737830 LFOFEOFBFECECEFFFFFFFFFFEFCELESCH 
BEO*) 

Ss0 CALL CHARtIl6, "010161 B31B1BIFLDOFOAO 
F070000090000C00L.FABOBOFOFOEOAOE0CO00000 
oc”) 

=60 CALL CHAR(124, "030101010307070703010 
30£&03010B0700604040E070F070E0COEOBOEOCOS 
000”) 

=70 CALL CHARt12O,"00040202070E0F0E07030 
70007030100C08508080C0E0E0E0C080C050C080D 
0EO*) 

580 CALL CHAR{128, "00010307000703070E0F0 
E0702020500E00080C050C080C0E0OE0E0COB0808 
060") 

520 CALL CHAR{132, "0E170307000703070E0F0 
E9702020208000030L 0S0C0BS0OCDEOEOEOCOBOKOE 
ooo=) 

£00 CALL CHARt13S, "00000307000703070E0F0 
E0702020204000020C0E0C080C0E0E0E0COE0B08 
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oc0") 

#10 CALL CHAPI140, "0000100680401021C02010 
408410000000000084289040209C.2040708884000 
000°) 

£20 CALL COLORI?,2,2,38,2,21:: CALL CLEAR 
:: CALL HEHARIL,1,90,17):: I=sl :: FOR I 
eis TO 7 STEP -1i 

530 CALL HCHARI(I+1,1,40,I-1):: CALL HCHA 
RtJ+1,1,41}:: CALL HCHAR(J+2,1,40,1-1):: 
CALL HEHAR(I+2,1,421:: I=J+2 

540 NEXT I :: CALL HEHARLJ+L,1,40,1I-21:: 
CALL HEHARII#L,I-1,44)2: CALL HCHARII#L 
‚I,43) 

550 CALL HCHAR{L,18,40,15):: J=1 :: FOR 
isi5 TO 9 STEP -i :: CALL HCHARIJ+1,34-1 

„40,1-1):: CALL HCHARLI+1,33-1,91) 

&60 CALL HCHARtI+2,34-1,40,1I-11:: CALL H 

CHAR LI+2,33-1,92):: JeJt2 :: NEXT I :: 

ALL HCHARLI+1,34-1,40,I-1):: CALL HCHARIL 

T+1,34-1,94) 

570 CALL HEHARLI+1,33-1,931:: CALL HCHAR 
(2,14,45):: CALL HCHARIZ2,17,45) 

580 IF AN=O THEN 870 ELSE CALL SPRITEIH2 

9, 11&,1&,1,121):: MAs=S 

#0 FOR I=1 TO 33 STEP & :: CALL HCHARI2 

3,1,102)1:: CALL HCHARI24,1,103):: CALL H 

CHAR{23,1+1,1041:: CALL HCHARIZ4, 141,105 
1: NEXT I 

709 FOR I=1 TO ? STEP 2 :: CALL HCHAR II? 
‚1,4712: CALL HCHARI1?,1+25,471:: NEXT I 

710 DISPLAY ATtL,22)SIZEL4):"TIHME" :: TR 

‚Yoel'z. Ti=s2 

?20 DISPLAY AT(S,2215SIZEI4}: "PUNKTE" :: 

CALL HEHARI23, 1,108): CALL HEHARI23,2,1 

0?1:: DISPLAY ATIL,32)SIZELl5):"CLOWNS® 

730 GOSUB 1210 :: CALL SCREENIS}:: CALL 

COLORI13,2,9,0,2,2, 10, 2,2, 9,9, 2,2, 7,21:: 
FOR I=3 TO 7 :: CALL COLORII,2,#):: NE% 

TI 

?40 IF AN=O THEN 1250 

750 CALL SPRITEI#L,135,14, 165, 1,#2,108,® 

‚„175,72,43, 108,5, 124, 120,44, 108,3,178,16 

8,#5,1098,12,128,216) 

”&0 CALL SPRITE (H65, 108,14,128,241:: 5=10 
ı: FOR I=? TO 9 :: CALL SPRITE(HI,35,8, 

108,5,0,-185}:: 8=5+70 ı: NEXT I 

770 RANDOHIZE :: CO=SINTIRND#I3I+3 :: CAL 

L COLORIP,C0,2,10,C00,2) 

730. FÜR I=1 TO 2 :: IF Tail?a THEN T=124 

.ı TT=17& ı: PA=s108 :: PB=11? ELSE Tei?s 
.: TT=]24 :: Pa=s1l?2 :: PB=108 

770 CALL LOCATEIM2,T,72,#43,17,120,%#4,T,1 

62,45, TT,216,465, TT,24):: CALL PATTERNIHZ 

‚„PA,#3,PB,#4,PA,NS,PB,H&,PE}:: CALE SOUN 

Di-100,110,15) 

800 CALL JOYSTil,Y,Xi:: IF Y<>0 THEN 605 

U 880 

810 NEXT I :: IF RND>.ES AND AF=O THEN C 

ALL SPRITEIWIL,05,9,80,11:: Ar=l 

820 CALL KEYI1,K,S):: IF K=18 AND AF=si T 

HEN 1310 ELSE IF VP=3&4 THEN VP=&50 ELSE V 

F=3 

830 FOR I=7 TO ® :: CALL PATTERNIHI,UPI: 
: NEXT I 

840 IF AF=0 THEN 840 

830 CALL POSITIONIHLL,ÄAA,BA):: IF Ba=2al 
THEN CALl. DELSPRITEIHLLI:: AF=O ELSE CA 
LL LOCATEI#11,AA,BA+48) 

840 CALL IoYSTtıl,Y,Xi:: IF Y THEN GOSUB 
san 

270 GOSUB 1380 :: GOTO 770 

880 CALL POEITIOMIH1,A,BI:: IF B=241 AND 
Yad OR B=1 AND Y=-4 AND GE=0 THEN RETUR 
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Bieten Sie als Ralf, der Clown, artistische Meisterleistungen 


Werden Sie zur neuen Attraktion im TI-Zirkus 


N- ELSE IF B=193 AND Y=4 THEN GE=1 ELSE I 
F B=1 AND Y=-4 AND GE=1 THEN 1400 

3970 CALL SCUNDI-1,-3,01:: CALL HCHART23, 
Yc,102):: CALL HEHAR(23,YC+H1,104) 

200 IF Y=-4 THEN TR=TR-1 :: PP=12B ELSE 
PP=j232 :;: TR=TR+l 

DID CALL PATTERNIHL,PF-81:: CALL LOCATEI 
W1,A-30,B+rY#ä) 

220 FOR Heil TO 10 :: CALL COINCTALL,CIE: 
IF C THEN 1000 

230 NEXT H 

240 CALL POSITIONiHL,A,Bl:: CALL LOCATEI 
H1,A+50,B+Y#4}:: CALL PATTERNIHL,FPI 

250 IF AN=0 THEN #50 ELSE PU=sPU+50 :: GO 
SUB 1390 

950 IF TRei THEN YC=1 ELSE IF TRe2 THEN 
Yc=? ELSE IF TR=3 THEN YC=l3 ELSE IF TRe 
4 THEN YC=17 ELSE IF TR=5 THEN YC=25 EL5 

E TC=3l 

970 CALL PATTERNIHL,FPI:: CALL SOUNDI-1, 
-2,01:: CALL HCHARI23,YC,10512: CALL HECH 

ARL23,YC+1,1071 

a80 IF FF=1 THEN FF=0 :: GOTO 770 

220 RETURN 

1000 | 

1010 CALL PATTERNI#L,140):: L=0 :: FOR I 

=550 TO 110 STEP -30 :: CALL SOUNDI-100, 

1,L,1+1,L,1r2,L):: L=L#+2 ;: NEXT IS: 

=MA=-j :: IF MA=0 THEN 1070 

1020 IF BI=1 THEN 1500 

1030 IF Y=-4 THEN TR=TR+l :: LO=s24 ELSE 
IF Y=4 THEN TR=TR-1 :: LO=-24 ELSE LO=0 
1040 CALL POSITION(#H1,A,BJi: CALL LOCATE 
(#1,155,B+L01:: CALL FATTERNIHL,138):: G 

OSUB 1210 

1050 IF TR=1 THEN YC=i ELSE IF TR=2 THEN 
Yc=? ELSE IF TR=3 THEN YC=l3 ELSE IF TR 

=4 THEN YC=1® ELSE IF TR=5 THEN Yc=23 EL 

SE Yl=31 

1050 CALL DELSPRITEIWILIGE BI,AF,FF=O &; 
CALL PATTERNIHL,PFPI:: CALL SOUNDI-1,-2, 

o)2: CALL HCHARI23,YC,1051:: CALL HECHARI 

23,YC+1,107)2: GOTO 820 

1070 IF TI>1 THEN 1100 

1080 FOR I=1 TO 3 :: DISPLAY ATI3,22]15IZ 

EiS51:"DOIUIT" :: CALL SOUND (200, 559,5):: 

FOR J=1 TO 100 ©: NEXT J :: DISPLAY ATIS 

22ISIzEisIz "itittit”® 

1090 FOR Jei TO 100 ::5 NEXT J ©: NEXT I 

1100 FOR I=3 TO 13 :: CALL COLORIT,F,2: 

ı NEXT I :: CALL CLEAR :: CALL DELSPRITE 
IALLIE: DISPLAY ATIB,13%* 5 CH 

ADE"! 

1110 CALL COLORI2,2,2,13,2,21:: DISPLAY 

ATIIZ,1):"SIE HABEN ES NICHT GESCHAFFT" 
1120 BC,BI,FF,TI,MA,GE,PU,AF=D :: DISPLA 

T ATil8,11%" NOCH EIN SPIEL J-N 7” 
1130 ACCEPT ATI18,24)5IZEl-LIBEEP WALIDA 
TEL"IN"I:AS :: IF As="7" THEN 340 ELSE I 
F Ag="" THEN 1130 | 
1140 CALL CLEAR :: CALL DELSPRITEIALLIG: 
END 

1150 ! 

1180 ! 

1170 FOR I=3 TO 13 =: CALL HCHARI23,1,32 
„salz: CALL COLDRII,9,2):: NEXT I :: CAL 
L CLEAR :: CALL COLORI2,2,21:: CALL DELS 
PRITEIALL)I 

1180 DISPLAY ATIB,1}:° B R a 

Yu Damals SIE HABEN DIE PRUEFUNG 


BESTANDEN" 
1190 FOR I=110 TO 970 STEP 30 ©: CALL 50 
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UNDt-100,1,5,1+1,7,1+2,#1:: NEXT I 


1200 GOTD 1120 

i210 ! 

1220 11=7 :: FOR I=1 TO MA-I :: RANDOHIZ 
E :: P=INTIRND#2):: IF P=0 THEN P=128 EL 
GE F=132 

1230 CALL HCHARt3,1I,Pl:: CALL HCHARI4,J 
J,P+1):: CALL HCHARI(3,JJ#+1,P+2):: CALL H 
CHAR(4,1J+1,P+3):: JJ=JJ+2 :: NEXT I 
1240 CALL HCHARL3,J1,40,15-JJ):: CALL HC 

HAR(4,11,40,14-]JJ):: RETURN 

1250 CALL COLORI9,13,2,10,13,2)2: CALL.S5 

PRITE (W1,136, 16,155, 1,02,115,16, 167,241) 
1750 S=110 :: FOR Isi 705 :: Ye4 :: 605 
UB 880 :: RANDOMIZE :: GCO=INT iRNDI#13) +3 
.: CALL COLORIP,C0,2,10,C0,2):: CALL SOU 
ND{200,5,3,5+1,6,5+2,P91:: S=S+111 

1270 NEXT I :: CALL PATTERNIHL,136):: L= 
110 :: CALL MOTION(#2,-15,-11) 

1780 CALL POSITIONI#2,A,Bl:: IF A{Z20 THE 

M CALL DELSPRITEIN2I:: CALL SPRITE IW28,1 
16,16, 1,1211ELSE L=eL+50 :: CALL SOUNDI-I 

00,L,101:: GOTO 1280 

1290 S=S550 :: FOR Isi TO 3 :: Ya-4 

SUB 880 :: RANDOMIZE :: CO=INTIRND#L3) +3 
:: CALL COLORIP,C0,2,10,C0,2):: CALL 50 

UND(200,8,3,5+1,6,5+2,7):: 5=5-110 

1300 NEXT I :: GE=0 :; CALL PATTERNIHL,! 

36)]:: MA=5 :: GOSUB 1210 :: ANsei =: GOTO 
+50 

1310 AF,Y=0 :: CALL SOUNDI-1,-3,0):: CAL 

L HCHAR123,YC,102):: CALL HCHARI23,YC#l, 
1064) 

1320 CALL FOSITION(WL,A,B,N11,AA,BB):: 

ALL LOCATEIR1,108,Bl:: CALL COINCIALL,C 
.: TF C THEN L010 ELSE IF B{>BB THEN 135 

ö ELSE CALL LOCATEIW1,80,B) 

1330 CALL POSITIONI(WH11,AA,BAI:: IF BA=24 
i THEN 1370 ELSE IF RND>.B THEN CALL LOC 

ATEIHL,159,BAl:: CALL DELSPRITEIHI1JG: 

F=i :: GOTO 740 

1340 PU=PU+200 :: GOSUB 1390 :: CALL LOE 

ATEI#H11,AA,BA+48,H1,AA,BA+raB}:.: TR=eTR#+1 
." FOR HH=1 TO 50 :: NEXT HH :: CALL S0U 

NDt-100,-7,10) 

1350 GOTO 1330 

1350 AF=1 :: CALL LOCATEINM1,108,B):: CAL 

L COINCtALL,CI:: IF E THEN 1010 ELSE CAL 

L LOCATEI#HL,169,E):: Frel >: GOTO Pä0 
1370 PP=134 :: CALL LOCATEIN1,169,241):: 
CALL DELSPRITE{#111:: GE,FF=el :: G0OTO 7 

30 

1380 TI=TI-2 ::; TS=STRSEITIIE"L" :: DISPL 

AY ATI3,23)SIZE ILENITSII:TS :: IF TI=0 T 

HEN 1070 ELSE IF BI=s1 THEN RETURN ELSE C 

ALL FATTERNI#1,134):: RETURN 

1390 P&s=STRsIPU):: DISPLAY ATI?,Z23)5IZEl 

LENIPFII:F# :: RETURN 

1400 

14310 CALL DELSPRITEIALLIE: DISFLAY ATIiS, 
F1SIZELSI:"BONUSI" :: FOR I=l TO TI: 

PllePlaTI :: GOSUB 1370 :: CALL SOUNDI-10 

0,110+1#40,5):5 NEXT I 

1420 BC=0 :: BI=1 3: DISPLAY ATIS,221512 

Etäl: "PUNKTE" :: CALL HCHARI(22,1,32,689: 
: TI=82 ::; GOSUB 1380 

1330 CALL CHAR(140, "00000003070007070307 

OEOFOEOTL3ALFOODIOLBFCECCAHICBLOBSOLCOEDEDEOCO 

Foro"" 

1440 CALL CHARLL?28, "07060103030301030707 

O703010101010080C0E0B0EOCOEOFOFOFDEOLCOCH 

COEO") 

1450 CALL CHARtL32Z, "070EOLO3030301030707 

0703910101010080C09E0BDEOCDEO?O?OTOEOCH4O 

Z0eB0"1 

1450 CALL CHARLL2O, "O7LFIEFEFEFEFFE3ESFF 

FETEFE3ELFOFEIFBFLCTEFEFFFFCFEPFFFFFEFEFE 

FeEEO")I 

1470 CALL CHARI 124, "O71FSF??7A3FLFEFFFFFB 

FI Z3772FLFOFEOFSFCEECABFOFFFFFOFBFCGEEFC 
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FBEO") 

1480 CALL CHAR 115, "00016307000703070EDE 

0E0?70302040DE0D0080C0C0C0OBOLCOEDEDEOCOBOBO 

8080”) 

1490 CALL MAGHIFYISI:: CALL CHARI112,"00 

010307000703070E0E0C0703030307E0D080C0C0 

COBSOCOEDEDEOCOBOBOBOBO") 

1500 PP=132 :: GOSUB 1220 :: BA=2 :: Y=l 
i :: FOR I=s2 TO 4 :: RANDOHIZE :: CALL 5 

PRITEi#HI,108,12,175,Yl:: YeY+INTIRND#40) 
+70 :: NEXT I :: CALL SPRITEIW1,128,14,1 
50,10) 

1510 CALL IOYSTI1,Y,%:: IF Y=4 THEN PP= 
132 ELSE IF Y=-4 THEN PP=eilöd 

1s20 IF Y=0 THEN CALL MOTION(W1,0,0,#BA, 

0,0):: CALL PATTERHI#1,PP-4,#BA,120):: 6 

OTO 1750 ELSE CALL MOTIONI#1,0,1#2,4BA,0 
ır#2):: CALL PATTERNIWHI1,PP) 

1530 IF BF=120 THEN BP=124 ELSE BP=120 
1540 CALL FATTERNI#BA,BP) 

1550 CALL POSITION (HBA,AL,BII:E: CALL LOC 

ATE(#1,160,B1}:: IF BD=ei20 THEN BD=124 E 

LSE ED=120 

1550 CALL KEYIL,K,SI:: IF K=18 THEN 1640 
1570 FOR I=2 TO 4 :: IF I=BA THEN 1580 E 

LSE CALL HNOTION{HI,0,INTIRNDE-6)-3):: CA 

LL PATTERNIHI,BD):: CALL COINEC I#BA,#1,16 
‚cCl:: IF C THEN 1570 

1580 NEXT 1 

1550 IF BFr=ei20 THEN BFP=124 ELSE BP=120 
1500 CALL FATTERN{HBA,BP,#i1,PP-4) 

1810 CALL KEYIL,K,SI:: IF K=18 THEN 1540 
ELSE CALL COINCIWBA,HBA+L,18,C):: IF [ 

THEN 150 

1520 IF BA>Z THEN CALL COINCIHBA,WBA-1,1 
&,C):: IF C THEN 15#0 

1530 GOSUB 1380 :: GOTO 15310 

1540 CALL SOUNDI-100,-3,10):2: CALL MOTIO 

N{HBA,0,-Y#2):: FOR J=-16& TO 16 :: CALL 

MOTIONMI#1,JI,T#21:: NEXT J =: CALL MOTION 
i#1,0,0):: CALL POSITION{#1,A,B) 

1650 CALL LOCATE(#H1,160,Bl:: FOR I=2 TO 
4 =: CALL DISTANCEIHL,NI1,C):: IF SARIcı« 
18 AND I=BA THEN Bl=BC-1 :: Pü=sPU-100 :: 
GOTO 1570 ELSE IF SARtCcıItiB THEN 14570 
1550 NEXT I :: CALL LOCATEIHL,175,B):: 6 
DTO 1570 

1570 CALL SOUNDI-100,-2,10):: BE=I :: CA 
LL MOTIONI#BE,0,0):2: CALL POSITION IMBE,A 
t1,Bi):: CALL LOCATEIH1,150,Bi) 

1580 GOSUB 1380 :: BA=BE :: PU=PU+100 :; 
BC=BC+Hl :* GOSUB 1370 :: IF BC=3 THEN i 
150 ELSE CALL LOCATEiH1,180,Bll:. GOTO 1 
310 

1590 CALL POSITION(H1L,A,BI:: CALL LOCATE 
1#1,175,B}i: FOR I=l TO 4 :: CALL MOTION 
i#1,0,0):: NEXT I :: GOTO 1010 





In der letzten Ausgabe des 


Homecomputers ist uns leider 
ein Listing-Fehler unterlaufen. 
Hier nun die fällige Korrektur: 


105 DATAu nano nn 
8,120,25,88,154,25,156,132,31,248,4,47 

212 DATA21,208,41,253,141,21,209,141,3,2 
08,173,249,7,201,15,208,5,169,7,141,40 <B7> 
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— „Danger Mission“ 








Tolles Geschicklichkeitsspiel auf dem TI-99 (Extended Basic) 


Du, ich hätte nie geglaubt, daß 


ich die Bombe noch rechtzeitig 
| entschärfen könnte!“ 


100 ! DANGER MISSION 
110 ı! 
120 ! by REX SOFT 
130 ! 
140 ! uritten By 
iso 1 
iso ! Daniel Peier 
170 ! Hulfteggstrasse 31 
180 ! 8406 Winterthur 
70 |! Schnelz 
200 ! 
210 ! November -Dezember 19784 
| 220! 
al 220 DIM A$(5),B#12) ,D8120),Pi2) ,MAl2),Lt 
| 2),5CH{2] 
2930 DATA " Hiysi h 
h hy, Kiss ix, 
En salı "a 


| 250 GOTO 290 :: Ast), Bstl,Dst),N#t),HCs, 








FO HOMECOMPUTER 





Beim „Iownmarshal“ der Stadt „Blackborn City“ ist 
eine anonyme Bombendrohung eingegangen. Sie erhal- 





ten vom Bürgermeister den gefährlichen Auftrag, das 
gefährdete Stadtgebiet nach Bomben zu durchsuchen 


und diese zu entschärfen. Aber aufgepaßt! - Ihr Weg ist 


Auf.der Suche nach den Bomben werden 
Sie mit den verschiedensten Bedrohun- 
gen konfrontiert, Sie dürfen weder mit 
den Gebäuden kollidieren, noch von die- 
sen herunterfallen. Bleiben Sie nicht an 
einer sielle zu lang stehen, sonst brök- 
keln die Mauersteine ab und Sie stürzen 
unweigerlich in den Abgrund. Lange Pau- 
sen sind allein deshalb schon nicht ge- 
(ragt; weil sonst die Bomben explodieren 
könnten. 

Handeln Sie am besten nach dem Motto, 
erst kurz überlegen, dann agieren, 


Steuerung: 

Gresteuert wird.der „Bombenentschärfer“ 
bzw, Feuerwerker über Joystick Port 1. 
Geben Sie zu Beginn die Anzahl derSpie- 
ler (l oder 2) ein. Anschließend bitte den 
eigenen Namen (3 Buchstaben) eintippen 
und.den gewünschten Level wählen. 
Das Programm besteht aus drei verschie- 
denen Bildschirmmotiven. Falls Sie alle 


A,ANZ 


SPRITE :: 


AR 2: 
L FOSITIDN 
CALL COINE 
zE0 !SP- 


h % h 


er 





N) 





mit zahlreichen Gefahren gepflastert! 


(S.G.) 


drei Bilder bewältigen sollten, beginni 
das Spiel wieder mit dem ersten Bild- 
schirmmotiv, allerdings befinden Sie sich 
nun in einem schwierigeren Level. 


Die verschiedenen Funktio- 
nen: 

Mit einer senkrechten Stange kommt 
manindas nächst untere Stockwerk. Man 
kann die Stange zwar nicht vorher verlas- 
sen, jedoch istes möglich, diese von jeder 
Position aus zu erreichen. Mit einer Lei- 


ter kommt man hoch und runter. Mit ei- 


z&0 CALL ELEAR :: 
LOR :: CALL NAME :: CALL SPRUNG :: CALL 
CALL MOTION 
ALL LOCATE :: ECALL FATTERN 
#?0 CALL GCEHAR :: 
EALL CHAR :: 
4 SALD-KET 44 


Betätigen Sie sich als Feuerwerker, entschärfen Sie die 
Bomben und retten Sie die Hausbewohner 


nem Lift gelangt man nur nach oben,‘ 


kann diesen dafür aber jeder Zeit bestei- 
een und verlassen. 

Mit einer waagrechten Stange kann man 
sich nach rechts oder links bewegen, Eine 
solche Stange erreicht man, indem der 
Joystick nach oben gedrückt wird; ein 
Druck auf den Feuerknopf bewirkt, daß 
man wieder auf die Etage zurückkommit. 


cos, PLAYS,Fi},MAUJ,LII),IT,II,SCHi} ,HC,K,S 
‚98;%,1Y,X1,%2,Y1,SPIELER,BO,ST,Pl,P2,P3,C 


EALL SCREEN :: CALL C0 


‘* CALL SOUND :: € 
CALL HCHAR :: CALL VCH 


EALL DELSPRITE :: CAL 
CALL JOrST 3: 


2?0 CALL CLEAR 

300 CALL CHAR 144, "BBEBBOO??7?77OODDDD") 
310 CALL CHARI34,"1200583C1A28284818001A 
36538141412”",45,RFT#1"FF00”",4)) 

320 Astl)="IC0OB0B0B0B3E2A3E" :: Asßi2j="0 
OlCOB0E083EZA3E" 
A3E”" :: Asl4)="O000001C0B3EZA3E" ». 


:: Asi3}="d0001C08083E2 
ASiS 
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Fi 
il 
Er 


ds" 
a 


x 1 


ch 


Je"000000001C3EZA3E" 


330 CALL CHARIF&,RPTEI"BLBIBIFF" „21,106, 

RPTS("81",8),112, "FF",91,"3C42BDAlALBD#S2 

sc") 

340 CALL CHAR (36, "247E777975A3C423C",37, A 

(1) 

350 CALL CHARt128, "S3ASASC181818183C18005 

ASc1BlBlLB2418LB101LEIBLOLOLB”) 

350 CALL CHARI(131, "070C1ICIF?FF2FZ7F00807 

FCOFE4FAFFETBEEFEFBASBOSA?7C" , 134, "824438 

=43854448200000482FF8204”] 

370 CALL CHAR (63, "FCFECSOC1EOOLBLB") 

380 FOR I=1 TO iS :: READ Del):: NEXT ] 

390 FOR Is45 TO #0 :: READ COs :: CALLE 

HAR(1,C0Os1:: NEXT I :: FÜR Isä8 TO 57 5; 
READ COs :: CALL CHARII,COs):: NEXT I 

400 CALL SCREENISIT! CALL COLORI2,15,1,1 

2,16,1,9,14,1,11,5,1,10,7,1,1,13,1,13,11 
4) 

410 CALL COLORtO,1,1,3;,9,1,6,7,157,7,1,8 
9,1,3,6,1,9,6, 1) 

420 DISPLAY AT(?,IHERASE ALLE"DANGE 

R MISSION" :: CALL HCHAR(S,S,44, 

2711: CALL HCHAR LP, 3,44,271 

430 DISPLAY AT(24,7):°ä REX SOFT 1784" 

440 DISPLAY ATi12,1): "PRESS 1 OR 2 PLATE 

R BOTTON 1" 3: ACCEPT ATI12,2815IZEI-1)V 

ALIDATE(*"12”"):SPIELER 

450 DISPLAY ATi17,1):"PLAYER DNE: RE* 
LEVEL 4” :: ACCEPT ATL1?,15I5IZEL-3)VA 

LIDATELUALPHAI:INSELI:S ACCEPT ATI(17,2715 
I7E{-1)VALIDATEL "123455787" ):SCHL1) 

460 IF SPIELER=2 THEN DISPLAY AT(20,1):° 

PLAYER TWO: DAN LEVEL 4” :: ACCEPT A 

T1(20, 1SISIZEI-3)1VALIDATE (UALPHAF:SNSIZIE: 
ACCEPT ATI20,27)5IZEt-LIVALIDATE "12345 

5787"):5CH12) 

470 CALL CLEAR :: MAti),Halz)e3 :: 8,5T, 

BO,Lti},Li2},Pi1),Pi2)=0 

480 GOTO 1110 

490 CALL VCHARLL,1,32,758):: ON Li@l+1 GB 

OSUB 870, 740,1020 

s00 CALL CHARtI20,Bsil)):: CALL NAHE INSI 
},SPIELER,Pi}):: FOR I=L(8)#5+1 TO Lia)# 

=45 :: IImsIl+il :: DISPLAY ATI2+11#4,11:D 

#tIh:: NEXT I :: Ilad 

=10 CALL SPRITEIHL,34,7,177,23315: CALL 

HCHAR12,15,32,5):: CALL HCHARI2,15,130,H 

Ald]] 

=20 CALL POSITIONiH1,K1,Y1):: CALL JOTST 
{1,%, 71:3: CALL KETIL,K,SIS: IF K=i8 THEN 
CäLL SPRUNGIXI,Yll:: BO=Bü-3 :: CALL PO 

SITIONIHL,X1,Y1]l:: GOTD 550 

=30 IF Y THEN #20 :: IF %=-4 THEN CALL P 

ATTERNI#1,341:: Yi=Yl-8 ELSE IF K=4 THEN 
CALL PATTERNIHL,35):: Yi=Tlto 

=40 CALL LOCATEIH1,%1,Y1l:: CALL COINELA 

LL,CAl:: IF CA=-1 THEN 830 

=s0 BO=EO-i ;: IF Büt=0 THEN ST=ST#l :: 

CALL CHARL37,ASIST1):: BO=100 &: IF sT=3 
THEN 830 

=s0 Pi=1INTIXi-71/8+2 1: PZ=INTtYi+rl)/B+l 
:: CALL GCHARIPI,FPZ,P3) 

=70 IF P3=37? THEN 500 

sE0 CALL GCHARIPI+L,PZ2,P3):: IF P3}>37 AN 

D P3<43 THEN P3=P3+1 :: CALL HEHARITPI#I, 
PZ,F3}JELSE IF P3=43 THEN CALL HEHARIPI+I 
‚P2,32)ELSE IF F3=32 THEN 830 

s90 GOTO 320 

500 CALL SOUNDI100,110,0,-7,0)3: ANZ=ANZ 
-1 :: CALL HCHARIPI,PZ,32):: Fißl=Pial+B 

O8t5-STI+Li@)#50 :: DISPLAY ATI2,S+tl@-1) 
#1B)SIZEIS) :USING "HHHHHH":Pia):: IF ANZ 

=0 THEN 810 

510 GOTO 580 

520 Pi=INTIXi-71/8+3 :: PZ2=INTiYirl)/B+l 
ı: SALL GEHARTPI,ÄP2,P31:: IF F3>3? AND 

P3<43 THEN P3=P3+1 :: CALL HCHARIPI,PZ2,F 
3):: IF P3=43 THEN CALL HCHARIPI,P2,32) 

#30 CALL COINCIALL,CAI:: IF CA=-1 THEN 8 


u. 


Juml/ ul "86 





30 ELSE IF Y=a-4 THEN 7&0 

5640 CALL GSCHARIPL-1,P2,P3):: IF P3=e?& TH 

EN CAäLL LOCATEiIHL,KL-B,Y1):5 CALL PATTER 

N(iHi,1291:: CALL POSITIONIHL,Al,TLIELSE 
IF P3=104 THEN 710 

450 CALL GEHAR IPi-2,P2,P3):: IF P3=e1l2 T 

HEN &50 ELSE 540 

550 CALL PATTERNIHL,I128):: CALL LOCATEIR 
1,%1-7,Y1):t: CALL POSITIONIH1,X1,Y1} 

570 CALL JIOYSTt1,%,Y):: CALL KEYTI1,K,S}: 
: TF K=18 THEN CALL LOCATEiHL,K1r7,Y1]:: 
CALL FOSITIONIHA1,K1,T1):: GOTO 3&0 ELSE 
CALL COINELALL,CAI:: IF CA=-1 THEN B30 

580 BO=BOo-1 :: IF BO<i=O THEN STeSTtl :: 

CäLL CHARI37,As{iST)):: Bö=s100 :: IF 5T=5 
THEN 830 

590 IF % THEN CALL LOCATEIH1,X1,Y1+%8#2): 
: CALL SOUNDIEO,-3,2):: CALL FOSITIONIHI 
a 

=00 FPi=1NTIXL-?7i/B+2 :: P2=INTIYI+1)/8#+1 
.: CALL GCHARIPL,PZ2,P3):: IF P3=112 THE 

N 570 ELSE 830 

710 CALL PATTERN{#HL,12#) 

720 CALL POSITIONIH1,X1,Y1):7: PLl=INTiäl- 

1/B+2 ©: P?ZeINTirl+l)/erl :: CALL GCHAR 
{P1,P2,P3):: CALL EDINCIALL,ECAI:: IF CAs 
-i THEN 830 ELSE IF P3{>104 THEN 5320 

+30 CALL JOYSTtl,X%,Y):: IF % THEN 320 EL 
SE CALL SOUND(106,-&,9):: CALL LOCATE IH 
‚ni=-B, Tl) 

740 BOü=B0-1 ;: IF BO<i=s0 THEN 5T=5Tt1 ©: 

CALL CHARI37,A815T}):: BO=100 :: IF 51-5 
THEN 830 

sn GOTO 720 

+&£0 IE P3=94 THEN CALL LOCATEIHI,A1+B,Y1 
"" CSALL POSITIONIRL,XI,YL}:: GOTO 350 E 

LSE IF P3{}120 THEN 350 

??0 CALL FATTERNIHL, 127) 

780 CALL CHARI120,B$12)1:: CALL SOUNDILO 

0,%1+110,3,%1+220,8,%1+500, 11) 

720 CALL LOCATEIHL,KI+B,Yi}zE CALL POSIT 
IONt#i,%1,Y1)2: BO=Bö-1l :: IF Böi=0 THEN 
ST=5T+1 :: CALL CHARI3?,ASISTI}:: BO=10 

o :: IF 5T=3 THEN 830 

800 CALL CHARLIZ2O,BSiL}):t Fi=INTIxl-7)/ 
B+3 :* PZ2=INTtYL+L)/B#+1 ı: CALL GCHARIPI 
‚P2,F3l:: IF P3<>120 THEN Säl0 ELSE 780 

B10 CALL DELSPRITEIALLI:: Lißl=LiBlrl 5; 
P{O}=PtB)+BO#15-5T+SCH(0))#20 :: 5ST,Bü= 

oo :: IF LieI>2 THEN SCH IA}=SCH IB) #1 :; 
tg3=s1 :ı Pi@)=Pial+4000+5CH (81 #1000 

870 GOTD 480 

830 CALL POSITIONIH1,%X1,Y1)::2 CALL PATTE 

RNIH1,35):: KZ=eX2+2 :: CALL HOTIONIH1,X2 
‚o1:: IF X1>190 THEN 850 

840 CALL FATTERNIHL,34):: CALL SOUNDI10O 
‚300-%1,0,400-%31,5,800=-41,7,-7,9):: GOTO 
830 

8s0 CALL DELSPRITETALLI:: %2,57T,E0=0 

B40 MAteI=MALBI-1 :: GOTD 480 

870 CALL HEHARIS,10,371:: ANZ=lE 

880 BEtl}=e"2010080404081020" :: BEi2}="ü 

408102020100804” 

870 CALL CHARL40, "EEEE007?7?7FOOBBBBBEEAUN 
71775007BB2065E800257400732008400021590000 
12",44, "EEEEOOT?FFFOOBEBEB"] 

°90 CALL SPRITEINS,133,5,177,1,0,5CHi@}, 
Hs,134, 13,57, 258,0, -5CH101-3,#7,135,3,13 
4,1,0,5CHi@) +1) 

sio IF SCHIR)>S THEN CALL SPRITE (WM8,132, 
13,105, 150,0,5SCH 18) -2,#7,131,13,105,142, 

0,5CHIa1-2) 

920 IF SCHIRI >3 THEN CALL SPRITEIN10,133 
ı7,89,1,0,SCH l&} +2) 

930 RETURN 

gAO Bstl)="0804081008090810” :: B#i2}="0 
510080408100804" 

50 CALL CHAR (40, "EEEEOOBBBBOODDDDEEEEOO 
838300FDD7EEC8008183008057CE00000083000D 

40", 44, "EEEEOOBBBBOODDDD") 


Homscomputer FI 


m - 


980 ANZ=17 7: CALL HCHAR(S,4,371:: CALL 
HEHARIS,20,37) 
970 CALL SPRITE (#5, 34,3, 33,254, 0,-5CHt@) 
, -3,48, 133, 7,137, 1,0,SCH18)+2,07,134, 11,6 
3,256,0,-5CHidj-2) 
‚ #80 IF SCHi@J)>4 THEN CALL:.SPRITEIHB, 135, 
 13,105,1,0,5CHt@) +1) 
770 IF SCHIB)}& THEN CALL SFRITEIHF, 38,2 
‚1?77,1,0,SCHi8) +11 
‘ 1000 IF SCH{8)>7? THEN CALL SPRITEI#LO,13 
4,15,105,70,0,5CHid] +1} 
1010 RETURN 
1020 EBSsil)="1008081010080810" ;: Beilz)=" 
 0O810100808101008" 
1030 CALL CHAR L40, "DODDOO?777OOBBBEDDDDO 
0775300AA0OFDDDDOOSES42000400004500454" , 44 
‚ "DDDD00777700BBBE*) 
1040 CALL SPRITEIH3,135,18,177,1,0,SCHia 
' 1050 IF SCHi&)>4 THEN CALL SFRITEIWB, 132 
‚2, 105,20,0,5CH(@)-2,49,131,2,105,12,0,8 
CHia)-2] 
1050 IF SCHIB)>& THEN CALL SPRITEI#H10,13 
5,9,41,1,0,SCHt01) 
1070 IF SCHt&) >? THEN CALL SPRITEIHL1,13 
5,11,41,50,0,SCHiR)) 
' 41080 IF SCHIS)>3 THEN CALL SPRITE(#H12,36 
„414,129,2558,0,-SCHI8)=-4) 
i0P?0 IF SCHIGI>B THEN CALL SPRITE(#13,13 
3,153, 73,1,0,5CH18) +2] 
1100 CALL HCEHARIS,27,37):: Alze24 :: RET 
URH 
1116 B=8+41 :: IF 8>5PIELER THEN G=l 
1120 IF SPIELER=1 AND MAIL}I=0. THEN 1150 
' 41130 IF SPIELER=e2 AND MAtlli=0 AND HAlzle 
0 THEN 1180 
ı 1140 IF MAt@l=0 THEN 1110 
1150 GOTO 4970 
11l&0 DISPLAY ATIF,F)IERASE ALL:",GAME DVE 
R," :3 CALL HEHARIB, 11,44 ,11):: CALL HCH 
ARt10,11,44,11) 
1170 DISPLAY ATi3,7):"DANGER HISSION" ;; 
DISFLAY ATI1,10]:"REX SOFT" 
1180 IF Pil}>HC THEN Hc=ePil):: Hlsensiih) 
1190 IF PiZ)>HC THEN Hlepi2):: Hlgensi2) 
‚ 4200 DISPLAY ATI14,1): USING "HICGHSCORE: 
HHHHHH BrY":HC :: DISPLAY ATil4,25)1:HC$ 
1210 DISPLAY AT(18,1);USING "PLAYER ONE: 
HHH HHHNHH POINTS"ZNSBIII,PIl) 
1220 IF SFIELER=2 THEN DISPLAY ATI21,1): 
USING "PLAYER TWO:HRH HAHHHH POINTS":NEI 
, 21,Pt2} 
1230 DISPLAY AT(24,1): "ANOTHER PLAY 777? 
ı Y DRN T" :: ACCEFRT ATI24, 254)5IZE1-L1VA 
LIDATEI"YN"IEPLAYS :: IF PLAYS="T" THEN 
420 
1240 FOÜR I=40 TO 43 ;: CALL HCHARI1,1,1, 
&B8):: NEXT I :: CALL CLEAR :: END 
. 


1250. DATA " h x p 
PPPR " h 11 j' % hi 
x } fnntkytyh * PPP 
pp" 
1280 DATA *' h x ı 
% h ee Kıkl, h 
x h PPRRARPR 
y 
1270 DATA" % “ih % u 
Allen tt" Er 
- ' 3 
z 
1280 DATA " tr TER 
. I % % “Klug, 


at ln" 


1290 DATA "x,hi it,fi,,ttih% % 


h% H hi,ixx „ılkı,h “ 
Ai Ku h x 2 h 
. dom 
1300 DATA "x n’% % Hi,tei,ii,,fx 
„ist, h = 
h PPPPPPxX__PPPPPPPPPp h 
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ze | 
1310 DATA "x Ye Ya h% hi, (xl. 
hiysdiy [ fgsitrh x h 
h x h hı 
w" 
1320 DATA " h 5 h°* % 
h Ri REN Rh Ye 
E h xh x“ PPPPPP * n 
en 
1330 DATA " h “ 5 "x h x 
h#4 x ,ı it, dt, HH llrnn 
re IP 
1340 DATA "%hx PPPPPPPPRFRPPPPFPP hifixt, 
h=#4 H x hi,i x 
Ye « h x h x kl,h * Rh 
ee 
1330 DATA "Ah a % x h x h wi 
h i’i x h x“ h » HM . x 
h%x%h x h x % „ttii,ih 
y® 
1360 DATA ’h %' x % 
hi,did,ttiti,ix xh 
% Kuh u 
de 
1370 DATA " h x. Iih,!x LS 
h x» Rh % PPPPRRP ' N x 
 ° DE hi ihn A, ae 
u 
1380 DATA "h% h x { 


ittiih%ıh % u 4 
ee HF 


FEraen 


1370 DATA FEFECSC5AFEFECSCS,FCFECSFEFECÖF | 


EFC,FEFECOCOCOCOFEFE ,FCFECSCSCSCHFEFE,FE 
FECOFSFBCOFEFE 


1400 DATA FEFECOFBFECUCOCO, FEFECOCECELSF ı 
EFE,CäCäöcäFEFECäcöch, 1BlBLBLBIELBIBIB, 08 


[af Ta T-JaT- Ta] 7-7 tele 
1410 DATA C5cCDBFODEDBECEE , COCOCOCcHLCOCOF 


EFE ,EEEEFEDSCSCHCELE ,ESESESDSDECECECE, FE | 


FECSCSCECSFEFE 
1420 DATA FEFECSCSFEFECOCO, FCEFECCCCCCDEF 
CFE,FCFECSCSFERCDECE,FEFECOFEFEÜGSFEFE, ?E 
EIlBIBIlBl81B18 
1430 DATA CElöstöcästcätörErE Bobs 


g18, ChäcäscäDäDänsrErE, 8205503838 Ach, bh 


shssshlBlelBle,FEFEOZSICFOCOFEFE 


1440 DATA FEFEESDÄDSCEFEFE , 78F8F81818181 
Siß,FEFEOSFEFECOFEFE,FEFEOS3ESEDSFEFE,CO 


COCECFEFEOCDEOE 


1450 DATA FEFECOFEFEOSFEFE,FEFECOFEFECERF ı 


EFE,FEFEOA0UC1B3050C0, FEFEC5AFEFECESFEFE,FE 

FEC5äFEFEOSFEFE 

1450 !BFP+ 

1470 SUB SPRUNG IX1,Y1):: GOTO 1480 :: I 

.. u a ml 45 YL 2: CALL NOTION :% 

CALL PATTERN :: CALL JDYST :: 
.: CALL SOUND :: !8P- 


1480 CALL JOYSTIl,%,YJ:: IF %=-4 THEN CA | 


LL PATTERNI#1,34)ELSE IF X=4 THEN CALL P 
ATTERNIH1,35) 

1490 FOR I=! TO 3 :: CALL MOTIONIHI,-I0, 
1.5#%):: CALL SOUNDt100,110+1#30,2):: NE 
xT 1 :: FOR I=s3 TO 1 STEP -1 :: CALL MOT 
IONiWH1,10,2%%):: CALL SOUND(100,110+1#20 
‚O)z: NEXT I 

1500 CALL MOTIONIM1,0,0):: X=MAXIMINEYI+ 
48X,256),1):7 CALL LOCATE(H1,K1,% 

1510 !5P+ 

1520 SUBEND 


1530 SUB NAHE IN®t),SPIELER,Pil}s: GOTO I ı 
40 :: NSt):: SPIELER :: Pils: CALL HCHA ° 


R :: !SP- 
1540 CALL HCHAR(1,3,95,28):: CALL HCHAR 
3,3,45,28) 


1550 DISPLAY AT(2,1):Nstil}t: DISPLAY ATt 


2,3)5IZE 14) USING "HARHRR":PILL) 
1550 IF SPIELER=2 THEN DISPLAY ATI2,1P): 


MEi2):2: DISPLAY ATi2,23)5IZE 1581: USING "Ri 


HHHHH"EP(2) 
1570 !Ep+ 
1580 SUBEND 
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Thema „Softwarebestellung“ 

Ich möchie Programme kauften aus Ihrem 
„sollware-Kalalog“. Geben Sie mir bitte 
bekannt, ob in Ihren Preisen Porto und 


Verpackung bereits enthalten sind, wenn 


nicht, wieviel Sie berechnen. Da ich im 
voraus bezahlen möchte, brauche ich da- 
zu noch Ihre Kontoangabe, Nummer und 


Geldinstitut, am besten Postscheckkon- 


to. Falls Sie über kein Konto verfügen, Be- 
ben Sie bitte bekannt, ob und wenn ja. 
wieviel Sie für Scheckgebühren berech- 
nen (Verrechnungsscheck), so daß ich in 
den Stand versetzt werde, Ihnen denrich- 
tigen Preis ım voraus zukommen zu las- 


sen, 


Rerso kKende, Stuttgart 


Redaktion 
Da wir immer wieder zum Thema „Soft- 


warebestellune“ befragt werden, hier 
noch einmal einige Erläuterungen: 


Grundsätzlich nehmen wir Bestellungen 


aus unserem Softwarekatalog nur gegen 
Vorkasse oder per? Nachnahme enigegen. 
Bei Zahlungen gegen Vorkasse entfallen 
Portokosten (Verpackungskosten 


bitte ın diesem Falle nur mit Verrech- 


nunsscheque. in bar oder per Postanwei- 


sung bezahlen, 

Bei Nachnahmebestellungen entstehen 
dem Bezieher zusätzliche Versandgebüh- 
ren, 

Bestellungen aus dem Ausland nehmen 
wir nur gegen Vorkasse an. 


Anmerkungen in eigener Sache: 
Liebe Leser! Immer wieder erhalten wir 
Beschwerden über von unsangeblich feh- 
lerhaft abgedruckte Programme. Beit0% 
dieser Beschwerden bzw. Reklamationen 
handelt essich um einen Fehler, der beim 
Eintippen der Datazeilen entstanden ist. 
Die dabei am häufigsten auftretenden 
Fehler sehen wie folgt aus: 

- falsche oder nicht eingegebene Zahlen 
- fehlende Kommas 

- statteinem Komma wird ein Punkt ein- 
gegeben 


Noch ein Hinweis in diesem Zusammen- 


hane: Fehlerhafte Datazeilen werden 
nicht gemeldet, stattdessen wird eine 


Fehlermeldungen im Zusammenhang 
mit Datazeilen sınd „ILLEGAL QUAN- 
TITY ERROR* oder „IY\PFE MISS. 
MATCH*, 





Fehlermeldung in der Zeile ausgegeben, 
in.der, der „READ,-Befehl steht. Häufige 


® „HOMECOMPUTER" ®& 


| 











Bitte überprüfen Sie in Zukunft bei Re- | 


klamationen erst, obes sich nicht um eine 


der hier beschriebenen Fehlerursachen 
handeln kann. Anderenfalls sind wirnach 
wie vor gern bereit, berechtige Reklama- 


tionen ordnungsgemäß zu bearbeiten. 





„lestbericht* Atari 520 ST 
Ich war sehr empört über Ihren sogenann- 
ten „Testbericht“ 
Rechners Ihrer letzten Ausgabe. 

In einem Testbericht erwarte ich, 


ten, die konsequent nur den Rechner an- 
belaingen! 

Diese Fakten sollten sichaufdie Technik, 
das Aubßere, die Handhabung und Bauart 
des Gerätes beziehen. Ebenfalls erwarte 
ich Kritik, sowohl positive als auch negati- 
ve! Gerade diese Punkte, die einen Test- 
bericht charakterisieren, fehlen in dem 
„Testbericht“ des Herrn Patrick Schmitz 
eänzlich. 

Mir schien, als hätte der „Tester” noch 
niemals einem Computer gegenüberge- 


| standen, geschweige denn ein solches 


Gerät überhaupt bedient! Eher glich die- 
ses Schriftstück einem emotionell ge- 


des ATARI 520 ST- | Y 
I TIBl. 
und 
hier stehe ıch beileibe nicht alleine, Fak- 








prägten Bewegungsablauf seiner Sinne 
vor dem „Griff zum Einschaltknopf mit 
Schweißlinzern“ (nachdem er sich, laut 


„Testbericht“, diesen mit der Hand von 
der Stirn gewischt hatte). Und so etwas 
kann und darl!'man nicht als „Testberichi* 
akzeptieren! 

Als einen „miesen” (sein Wortlaut im 
„lestbericht”) Angriff werte ich die Aus- 
sage über das Bankswitching der &-Bit- 
Rechner. Die Besitzer eines sölchen 
Computers müssen sich wohl sehr „ze- 
schmeichelt“ gefühlt haben. Ich bin mir 
sicher, daß es unter den $-Bit-Computern 
einige Modelle gibt, die den ATARI 530 


ST und seine Brüder ın Punkto Bedie- 


nungskomfort und Leistung in manchen 
Bereichen weit übertreffen! 

Das wohl negativste Argument an den 
neuen „supereomputern“ist wohlihrein- 
zieartiges Kabelverhau von Netz, Floppy 
Monitor, Diese Kabel gleichen eher un- 
terirdischen Starkstromleitungen eines 
Elekirizitätswerke. 

Die Behauptung, der ATARI habe eine 
sehr gute Tastatur, weise ich nur indirekt 
zurück. Es gibt einige Modelle von Rech- 
ner die, sowohl neue 8-Bitler und 16-Bit- 
ler als auch alte, dıe eine weilaus ange- 
nehmere Tastatur haben als der ST. Wer 
nur einmal die Funktionstasten betätigt 
hat, weiß, wovon .ıch hier rede. 

Auch unter den &Bit-Rechnern gibt es 
viele Modelle, die bessere physikalische 
Eieenschaften des Materials aufweisen 
als der ST-Rechner von ATARI! Diese 
sind dem ATARI in Qualität in bezug auf 
die Hardware und interne Werlötungen 
sowie das Gehäuse weilaus überlegen. 
Ich spreche hier aus Erfahrung! 

Meine Aussage wird nun noch durch den 
verhältnismäßig geringen Preis bekräl- 


Ich selbsi stand vor der Wahl: entweder 
ATARI 260 ST oder ein anderes Modell. 
Ich entschied mich aus den oben genann- 
ten Gründen für ein anderes Modell, das 
sich in seiner Leistung sicher mit. dem 
ATARI 260 ST messen kann, obwohl es 
„nur“ ein Gerät der $-Bit-Technologie ist. 

Oliver Hartmann, Schauren 


Redaktion 

Wir haben diesen Leserbrief bewußt un- 
gekürzt an dieser Stelle veröllentlichu 
und damit zur Diskussion gestellt. 

Eins jedoch sei noch angemerkt: Die Re- 
daktion ist sich vollkommen bewußt, daß 
es sich bei Beiträgen unserer freien Mitar- 





Juni/duli '86 


Homscomruter #3 





beiter und gerade bei Testberichten um 
subjektive Artikel handelt, die keinen 
Anspruch auf’ Allgemeingültigkeit erhe- 
ben können und auch nicht erheben wol- 
len. Wirglauben jedoch, dab auch subjek- 
tive Beiträge wertvolle Informationen lie- 
lern, wie es unserer Meinung nach auch 








bei Patrick Schmidts Beitrag der Fall ist. 
Teilt uns bitte mil wie Ihr darüber denkt. 


Zum Ahschluli ein letzter Hinweis: 


Vielen noch unerfahrenen Computerbe- 
sitzern ist das Zeichen * A, 
kannt, Dieses Zeichen steht [ür „Pfeil 
nach oben“, das Rechenzeichen für Po- 
tenzierung. Dieser Hinweis war aufgrund 


| zahlreicher Leseranfragen sicherlich nö- 
| tig. Wir hoffen damit auch zukünftigen 


neuen Compulerbesitzern eine sinnvolle 
Hille gegeben zu haben. 


richt be- 





Wenn Ihr Kritik außern wollt 
oder Verbesserungsvorschläge 
habt, dann schreibt doch mal 
| an die Mailbox. Wir sind auf 


jeden Fall für konstruktive 
Kritik dankbar und werden 
eure Einsendungen sorgfaltıg 
bearbeiten. Die Redaktion 


1 
\ 
| 





Computer Peripherie 


Der Autor dürfte Ihnen bereits aus zahlreichen anderen 
Büchern ein Begriff sein. Er hat ein neues Werk vorgelegt, 
das sich mit der Vorstellung und Erläuterung der Compu- 
ter-Peripherie beschäftigt. Er stellte das Buch unter dem 


Leitsatz zusammen: 


Machen Sie mehr aus Ihrem Computer, damit er mehr für 


Sıe macht! 


Hier wurden in allgemein verständlicher 
Form und systemunabhängig beschrie- 
ben, welche Geräte Sie Ihrem Heim-oder 
Personal-Computer zur Seitestellen soll- 
ten. Sie erhalten einen umfassenden 
Überblick über das Angebot an Compu- 
ter-Zusatzeeräten: Drucker, Monitore, 
Diskettenlaufwerke, Modems usw. Der 
Autor führt Sie in die Technik und Ar- 
heitsweise dieser Geräte ein und Sie er- 
halten die Entscheidungshilfen, die Sie 
brauchen: für den Einkauf, für den Sy- 
stem-Aufbau und für die Anwendung. 
Sollten Sie also vor dem Kaul eines-5y- 
stems stehen, oder iragen Sie sich mit 
dem Gedanken Ihr System erweitern zu 
wollen und benötigen noch einige Infor- 
mationen, dann sollten Sie sich dieses 
Buch zulegen. Mur das optimale Compu- 
ter-System ermöglicht auch einen opti- 
malen Einsatz. 

Computer-Peripherie ist erschienen im: 
Wilhelm Heyne Verlag 

8000 München 

ISBN 3-453-47058-3 


Autor: Dietmar Eirich | 
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Allcs über: 
INakottenlaufwerke - Drucker - 
Mordtore - Modems - Schnittstellen und 
was sorst noch zu [Ihrem 
Computer gehört 


Commodore 28: 
Das große Grafik- 
Buch 


Das große GRAFIK-Buch zeigt Ihnen die 
Gralik-Möglichkeiten auf dem Commo- 


dore 128. Laut Aussagen der Autoren 


steht. der Commodore 128 seinem kleine- 
rem Bruder, dem C-64 in niehts nach, Ein 
Team von Grafikspezialisten decktin die- 
sem: Werk alle Geheimnisse des C-128 


auf. So können Sie solort alle Möglıchkei- 


ten Ihres Commodore-Rechners für eige- 
ne Programme nutzen, Die Erklärung des 
Liehtpens, die Betriebsarten des. VIC- 
Chips, die Verwaltung der HI-RES sınd 
nur einige interessante Themen, die die- 
ses Buch seinem aufmerksamen Leser 
vermitteln möchte. Die Register tes 
VDC-Chips und der Aufbau des Video- 
RAM sind weitere Gebiete, die das Buch 
ausführlich beschreibt, Insgesamt dürfte 
der 128-Anwender hier.einen Überblick 
bekommen, was es mit den Problemen 
der GRAFIK-Programmierung dieses 
Systems auf'sich hat. 





Das große GRAFIK-Buch ist erschienen 
im: 

Data Becker Verlag 

Merowingerstraßle 30 

4000 Düsseldorf 

ISBN 3-89011-154-8 
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Zwei neue Werke zum Computer des Jahres „Atarı St“ 





Der Boom auf die Atari ST-Serie hält auch weiterhin an. Verschiedene Verlage haben dies 


zum Anlaß genommen, auch auf dem Bücher 





arkt das Angebot für den Atari ST ständig 


zu erweitern. So hat der Verlag Data-Becker erst kürzlich wieder zwei neue Bücher veröf- 
fentlicht, die wir Ihnen etwas näher vorstellen möchten. 


AD 


Aufgrund der hervorragenden Hardware- 
Eigenschaftendes Atari ST ist mit diesem 
Systembishernicht gekannte Sound-und 
Grafikprogrammierung möglich. Das 
Buch gibt am Anfang eine kurze Einlei- 
tung und erläutert die einzelnen Begriffe 
aus dem Sound- und Grafikbereich, 
Dann folgt bereits die erste Grafikpro- 
grammierung mit Logo. Dieser schließen 
sich Beschreibungen weilerer Program- 





miersprachen wie GEM BASIC, C und 
auch Modula2an,sodaßeigentlich fürje- | 
den etwas dabei sein müßte. Anhand von | 


vielen Beispiel- und Hilfsprogrammen er- 
hält der Leser einen sehr guten Über- 
blick, So wird die Raster- und Vektorgra- 
ik, Spiegelungen und Rotationen genau 


beschrieben. Sie erhalten eine genaue 


Einweisung in die 2-D und 3-D-Funk- 
tionsplotterproerammierung und Erläu- 
terungen zur Herstellung von Moire-Fi- 
guren, Kreis- und Balkendiagrammen. 


Der zweite große Teil’des Buches hbe- 
schäftigt sich mit dem Sound des Atari 
ST. Hier werden die Grundlagen der syn- 
thetischen Musik besprochen und der 
Sound-Chip genau definiert. 


Ein leiztes Kapitel beschäftigt sich mit 
dem Thema „Der Atari als Synthesizer“ 


ST Grafik u. 








Walkowicak 


ATARI 
ST 





Grafik | 


und 
Sound 


EIN DATA BECKER BUCH 


und zeiet den Anwender, welche ver- 


Sound NA] 





schiedenen Musik-Einsätze mit seinem | 


System möglich sind, Allesin Allemkann 
man sagen, daß hier ein Werk vorliegt, 
das dem Anwender einlach und über- 


sichtlich die Grafik- und Soundmöglich- | 


keiten des Atari ST dokumentiert. 
ATARIST Grafik und Sound ist erschienen 


im: 


4000 Düsseldort' ISBN 3-89011-123-8 


Das zweite Data-Becker-Werk zum ATARI ST stellt eine 
Ergänzung zum Titel Grafik und Sound dar und sollte auch 


als reine Ergänzung vom Leser angesehen werden. Es 


knüpft an das Thema Grafik an und gibt mit dem Titel 








noch intensivere und übersichtlichere In- 
formationen aus diesem Bereich, als es 


im ersien Titel bereits geschehen ist. So 


reicht dieses Buch von der Einführung in 


Assembler über die nötige Theorie bis 


zur Gralikanimation inatemberaubender 
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ATARI ST 3D Gra 
Programmierung 


“seschwindigkeit. Außerdem enthält es 
spezielle Grafikroutinen, die schneller | 
sind als allesbisher Dagewesene.Dawird 


fik 





Data Becker Verlag Merowingerstralle 30 


Echtzeitanimationerst möglich gemacht. | 


Dieses Buch gibt aber auch Anregungen 
zur Weiterentwicklung der Grafikmög- | 





lichkeiten, So können Sie z. B. die Effekte 


| von Licht und Schatten erkennen und er- 


halten Sie einen Einblick in die Program- 
mierung eines Zeichentrickfilms. 


| Aus dem Inhalt: 


- Transformation in der Ebene und im 
dreidimensionalen Raum 

- Projektion aus dem Raum in die zwei- 
dimensionale Ebene 

- Entfernung der verdeckten Flächen 

- Manipulation der verdeckten Linien 

- Bildschirmmanipulation - in Maschi- 
nensprache etc. 

Data Becker Verlag ISBN 3-89011-130-0 
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| x vVCo-20 SCHNEIDER CPC 464 OMMODORE 64 

_ Commodore 64 v0 

Programm Kasse = Disket " Bestell-Nr, | Programm (nur auf Kassette erhältlich) EN s Bestell-Nr. 

| Reactor/Concentration/Datenbank 1750 23,50 HC/C-1 Zyklo/Geldsammer — 1 BCM 

 Warlords/Caverns of Death 14,50 19,50 HE/C2 | Starwars/Punktefresser 1450 HEN 
‚Alien-Destroyer/Duell 2450 29,50 HC/CH3 | Catch the Fish/Mister Jump. 14,50 HC/V-3 

Ocean Game/Tennis A750 23,50 HC/CH | Ghosts’ Eggs /Foxhunt: 1, E50 HOW 

The. Caves 1150 23,50 HC/C-S | Breakout/Collector | 14,50 HC/V-5 
Gardener 110 250 _HOCh ZESEN, el HC/C-6 | O-Bert/Salvape Crew 16,50 HEN-b | 

| Ufo/Skatehoard Sam Si 20 HSCAHT| posnahl/schwiihad 0 EHEN. 

| Oirmve Benny 200 2050 HCC | Eanhse 10 HOW 

I I una E E | Tank: 14,50 ‚HEY-I4 

| Pole Position/Saye rauf teeth/Push 24,50 29,50 HC/C-3-4: ee 1450 en 
Explorer 2/Programmname? 24,50 29,50 HG. —— | 

= en | f a = | 

Atari 800 XL | ZX-Spectrum 

Programm ee ln Bestell-Nr. | Programm (nur auf Kassette erhältlich) Eh Bestell-Nr. 

| Manice/Fünf gewinnt 1450 19,50 HCA-I : Eike = 
Atlantis/Cosmische Arche 14,50 1950 °:HCA-2 U- -Jäger/Ritter Kunibert = MM. He 
Castle of Confusion/Magic Fire 14,50 19,50 HC/AI-3 Mad Space/Milli, die Milbe < 14,50. 1 HCS-3 
Sprinter '84 In. 14,50 19,50 HEA-4 Mister Pacman/Pooyan | 14,50 _ HC/S-4 
Montezumas Rache 15,50 19,50 HE/-S | Wheely Jar 1350 HESS 
Cambodia/Splat 450 2350 HC-6 Rotate/Chrrp 15,50. HES=b 
Agent/Nasenjch — 450 250. HGTI-4 | Karpiran 1,0 en BE ENEHE 
Hubert/Vulkan Je) HC/I-2-4K | Hole Jumper 15,507 7. HES3 
Vulkan/ke-Dos Zee 24,50 HC/I-2-4D | Sneakers/Splot 13.50 HC/S-3-4 
Skeet/öky Warrior/ 2950 HC/1-3-4D | Hefro Horse/Disassembler MS  _ HESE 
Maschinensprachemonitor Er ung: il an 
Mission/Kassettenkopierer 24,50 29,50 HC/I-4-4 ; \ | 
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MISX COMMODORE 64 7X-Spectrum 
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-_ATARI 800 XL 


Schneider CPC-464 

Preis’ Preis,’ 

‚Kassette Diskeite 
014,50 HC/SR-3 
4 024,50 HC/SR-4 
1250 2450  HCSR-S 
1750 236,50  HC/SR-6 


12,50 24,51 


elntleus Bestell-Nr. 
'Fallschirmspringer 
Geisterschlof 
‚Zeichen-Designer 

Mini Car Race/ Interceptor 3 D 
Secret Agent 3 y 
Space Invaders! 

‚Mini Pac/_Otti’s Sound“ 














17,50 27,50 





Earth Rescue 


HO/SR-I4 








VE-20 


TI-99 


Programm (nur auf Kassette erhältlich) 


Liftbär/Luftkampf 
Blue Bugs/Perlentaucher 
Coal Miner/Meteor/Infra 


Santa Maria/Tarzan 
Moonlander/Billard 


ersp-2g | 907 = Im Angesicht des Todes 


Monkey Dong 


Karatron 


Preis, 
hasselte 


14,50 
14,50 
17,50 
14,50 
14,50 
14,50 
14.50 


ZX SPECTRUM 







Bestell-Nr. 


HCA-I 
HC/T-2 
HC/T-3 
HC/T-4 
‚HCAT-5 
HC/T-6 
HOT 1-4 


Samson und die Kisten/ 
Verfliatel5 
Moon Landing’Fanzer 


16,50 
14,50 
14,50 


HC/T-2-4 
HET 
HCAT-4-4. 


Circus’Rapunzel 
Dark Legion 
Ralf der Clown‘ Danger Mission 


17,50 
17,50 


27,50 
Ka 1 


HC/SR-3-4 
HC/SR-4-4 





Nutzen Sie unser Angebot! | __ 
= MSA + u zo * 
Preis? Preis’ 
Kasseite Diskette 
7 
1150 18,50 
14,50 19,50 
12,50 17.50 
14,50 19,50 
1250 1750 
1250 17,50 





Programm Bestell-Nr. 

HOMA | 

HC/M-5 
HC/M-6 
HEMI-4 
HC/M-2-4 
HC/M-3-4 
HC/M-4-4 


E ur ETZUor, T BETT Ra De ah er Pc TSF I 
L an ya eh Pe En De ng ni 
AROENGER NO UND TRUE 
’ u E h an) a! 


Solaris 









ERRN Rabbit Walk 
ICH Flying Rescue 
Letter Puzzle 
Moon Race 
Skyeycles 
Crazy Kong 





DE ne 1 
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h % 


Moonlander 


TI-99/4A 
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Hobby-Ironice Dortmund mit 2. Fachausstellung 


für Computer, Software und Zubehör 





In der Zeit vom 23. - 27. April Yandi in Dort- [ | 
mund die 9. Ausstellung für Funk- und Hob- ” ans BE 
by-Elektronik statt. Angegliedert an diese # = 
9. Fachausstellung war wie bereits im letzten eg 
Jahr auch die 2. Computer-Schau. Hier | 

konnte der interessierte Fachbesucher in ei- | 
ner gesonderten Messehalle ein großes An- \ 
gebot an Computern, Software und Zubehör | 









bestaunen. 
(‚rolie Zahl an Anbietern 


Eine große Zahl von Fachhändlern und 
Anbietern hatte in der Messehalle ihre 
Stände aufgebaut und zeigten einem in- 
teressierten Publikum die neuesten Zu- 
behörleileim Bereich der Mikroelektro- 
nik. Yom Joystick bis zum einfachen 
Adapter war für last jedem Homecompu- 
ter das zu bekommen, was der User für 
den Limgang mit seinem System benö- 
tigt, Dabei waresvon Vorteil, wenn man 
sich zu Beginn des Besuches erst einmal 
einen Überblick vom Angebot verschall- 
te, denn die Vielzahl der Anbieter offe- 
rierte oft für das gleiche Produkt einen 
unterschiedlichen Preis. Wer hier erst 
verglichen: und dann gekauft hät, der hat 
sicherlich seinen Geldbeuteletwas entla- 
sten können. 


Kaufhäuser nutzen ihre 
Warktchancen 


Nachdem bereits ım letzten Jahr einige 
Kaufhäuser mit Verkaufsständen verlre- 
ten waren. hat jedes erößere Warenhaus 
in der Umeebune von Dortmund die 
Gunst der Stunde genutzt und mit einem 
breiten und viellältigen Produktangebot 
die Kunden gelockt. Die Angebotspalette 
dieser Kaufhäuser wird ständig erweitert, 
denn auch hier hat man längst entdeckt, 
daßder Computerimmer mehr, Aufmerk- 
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samkeit erlangt und der Anteil der Frei- 
zeitbeschäftigung mit dem Compuler 
ständig steigt, Auch das Verkaufspersonal 
steht heute schon mit Rat und Tat zur. Sei- 
te und gibt Fachinformationen weiter, die 
man noch vor kurzer Zeit nicht erwärlen 
könnte, da nicht alle über genügend Er- 
fahrungen in.der Mikroelektronik verlüg- 
len. 


Das Softwareangebot reißt 
nicht ab 


Neben dem Hardware-Vorstellungen war 
der zweite große Themenbereich dieser 
Ausstellung das riesige und nicht mehr 
endenwollende Software-Angebot. Anje- 
dem Stand waren Computer aufgebaut, 
andenender Besucher die neuesten Spie- 
le, Adventures oder Anwendungspro- 
erammetesten konnte, Man mußteschon 
viel Zeit mitbringen, wollte man all das 
testen, was angeboten wurde, Wir waren 
der Meinung, daß dieser Teil der Ausste]- 
ung wohl die meisten der Besucher reiz- 
te. Nach Auskunft der Händler und der 
großen  Soflware-Vertriebsfirmen in 
Deutschland ist mit einem Ablaufen des 
2. 4. herrschenden Booms nicht zu rech- 


nen. Im Gegenteil, z.B. die Zahl der $oft- 


ware-Neuvorstellung innerhalb eines 
Monats nimmt laufend zu und dıe Neu- 
eründung vieler Software-Häuser im 
In- und Ausland läßt schon erahnen, 
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daß hier noch längst nicht das Ziel er- 
reicht istundin Fachkreisen wird deshalb 
auch mit steigenden Verkaufszahlen auf 
dem europäischen Markt gerechnet. 


Regionale oder internatio- 
nale Computer-Schau? 


Leider ist es 2. Z. noch nicht so, daß die 
Hobbvytronic das Flair einerinternationa- 
len Fachausstellung besitzt. Aber bei ge- 
nauerem hinschauen, konnte man schon 
feststellen, das Anbieler aus dem gesam- 
ten Bundesgebiet vertreten waren. Ledig- 
lich bei der Computerschau fiel auf, das 
es noch eine regionale Ausstellung der 
umliegenden Firmen war. Zwar war hin 
und wiederein Messestand Zu sehen, der 
nicht direkt aus der Umgebung Bort- 
munds kam, aber im Großen und Ganzen 
waren doch eine Vielzahl von einheimi- 
schen Firmen mit ihren Ständen verire- 
ten. Nach Auskunft der Messeleitung ist 
man jedoch bestrebt, diese Messe auszu- 
weiten und versucht fürdie nächste Com- 
puterschau die Ausstellungsfläche zu 
vergrößern und die Händlerzahl zu stei- 
gern, 


u L 
Fazit: 
Insgesamt betrachtet, kann man .dıe Mes- 


| se als einen Erfolg für Händler und Besu- 


cher ansehen, Durch das große Angebot 
an Härd- und Software wurde dem User 
ein Überblick über dasg gesamte Zubehör- 
Sortiment ım Bereich der Mikroelektro- 
nik gezeigt. Bei Preisvergleichen konnte 
er beim Kaufvon verschiedenen Artikeln 
erhebliches an Geld sparen. Die Besu- 
cherzahlen während der Messetagen las- 
sen aufeine positive Resonanz beim An- 
wender schließen. Es bleibt zu sagen, daß 
man versuchen sollte, dieser Messe noch 
mehr an internationalem Flair zu verlei- 
hen. 
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‘Der alte Magier will einen Zaubertrank brauen. Dazu 
benötigt er allerlei Zutaten. | 
Also ist er unterwegs, um Spinnen, Kraken, Pilze und 
andere Gegenstände einzusammeln. Doch Hexen, Fle- 
dermäuse und anderes Ungetier versuchen ihn daran zu 
hindern. Der Magier ist aber nicht hilflos! 

Die Monster kann er mit Zaubersternen abwehren. Hat 
er eine Zutat gelunden, so muß er sie in den Topf wer- 
fen. Ein Spaß für die ganze Familie. 
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Das TENNIS-Fieber hat uns alle ergrilfen. Nicht zu- 
leıizt durch die großartigen Erfolge von Boris Becker ist 
der „Weiße Sport“ zu einem Volkssport.geworden! In 
unserem Game treten zwei Tennis-Cracks gegeneinan- 
der an; sie schenken sich nichts; um jeden Ball wird ge- 
kämpft, Das Spiel basiert aul'den Grundregeln des int- 
ernalionalen Tennis’. Hart umkämplie Tie-Breaks sind 
ebenso an der Tagesordnung wie ein zermürbendes 

Fünlsatz-Spiel. 
Sie haben hierbei die Möglichkeit, Ballgeschwindigkeit 

und Ballwinkel zu variieren. Aulgeschlagen wird per 
„Knopfdruck“. Ein Superspiel in 3 D-Elfekt. 
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